Select Code to Download

open(X,"< test");
undef $/;
while(<X>) { print "hello" }

$ARGV[0]="test";
$^I="";
undef $/;
while(<>) { print "hello" }