File Perl

  1. Home
  2. Perl
  3. File
  4. Reading from a file
#!/usr/bin/perl
use strict;
use warnings;
open IN, "in.txt" or die "Can not open in.txt for reading : $!";
while ( my $line =  ) {
   print "file:$line\n";
}
close IN or die "Can not close file : $!";