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

##</code><code>##

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