#!/usr/bin/perl -w 
#open(IFP, "$argv[0]") or die "could not open test.txt: $!"; 
my $var = $ARGV[0];
my $var1= $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. 
if ($var1 <=60) {
print $lines[12];
}
$myvar;
$myvar1;
$myvar2;
if ($var1 >60 && $var1 <=120) {
$myvar=$lines[12].$lines[17];	
print $myvar;
}

if ($var1 >120 && $var1 <=180) {
$myvar1=$lines[12].$lines[17].$lines[22];	
print $myvar1;
}
if ($var1 >180) {
$myvar2=$lines[12].$lines[17].$lines[22].$lines[27];	
print $myvar2;
}