#!/usr/bin/perl -w 
#open(IFP, "$argv[0]") or die "could not open test.txt: $!"; 
my $var = $ARGV[0];
open(IFP, $var) or die ; 
@lines=<IFP>; 
# NOTE: If test.txt is a 930,000 line file, you'll eat a metric 
# arseload of memory. Caveat programmer. 
print $lines[12];

my $var = $ARGV[1];
open(IFP, $var) or die ; 
@lines=<IFP>; 
# NOTE: If test.txt is a 930,000 line file, you'll eat a metric 
# arseload of memory. Caveat programmer. 
print $lines[3];