Select Code to Download

#!/usr/bin/perl
use strict;
...
&getpied;

print "The pie says : $pie\n";

#!/usr/bin/perl
use strict;
...
    my $pie = "eat me";
}
1;