Select Code to Download

use strict;
my $cake = 'chocolate';
my $pie = 'apple';
eval slurp("config.pl");

## slurp - read a file into a scalar or list
sub slurp {
...
    close F;
    return @a;
}

$pie = 'pecan';
cake = 'fairy';

if($@){
    print "Some errors happened...\n\n";
    print $@."\n\n";
    print "Oh well...\n";
}