http://www.perlmonks.org?node_id=11107428


in reply to print source golf

print do{@ARGV=$0;scalar<>};

[download]

Or

print do{@ARGV=$0;~~<>};

[download]

In Section Seekers of Perl Wisdom