in reply to print source golf

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

Or

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