Select Code to Download

#!/usr/bin/perl
use strict;
...
my $f = `fortune`;
chomp(my $w = `echo \$USER`);
print "\nHello, $w!  Your fortune for today is:\n\n $f\n";

#!/usr/bin/perl
use strict;
...
   }
}
movement();