Scripts for issue #38
Floating
Perl