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