open FILE, $ARGV[0]  or die "Can't open $ARGV[0] for reading: $!\n";

while (<FILE>){
  print "Line: $_";
}