Select Code to Download

#!/usr/bin/perl -w

...
my $adios = "goodbye";

print reverse($aloha, $adios);

#!/usr/bin/perl -w

...

my $aloha = "hello";
print scalar(reverse($aloha));