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

##</code><code>##

## slurp - read a file into a scalar or list
sub slurp {
    my $file = shift;
    local *F;
    open F, "< $file" or die "Error opening '$file' for read: $!";
    if(not wantarray){
        local $/ = undef;
        my $string = <F>;
        close F;
        return $string;
    }
    local $/ = "";
    my @a = <F>;
    close F;
    return @a;
}

##</code><code>##

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

##</code><code>##

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