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

##</code><code>##

my $x = print "hi\n";
print "$x\n";

__END__
hi
1