File Perl

  1. Home
  2. Perl
  3. File
  4. Read the first line of a local file
#!/usr/bin/perl
use IO::File;
my $file = "yourFile.txt";
my $fh   = IO::File->new($file);
my $line = <$fh>;
print $line;