# file foo.pl print $var,"\n";