@ARGV = qw(/export/home/ssesar/example);
print "line = $_" for <>;