Select Code to Download

sub begin {
    my @entries = @_;
    print "begin\n";
    return @entries;
}

my $x = print "hi\n";
print "$x\n";
...
__END__
hi
1