($filename, $line) = @ARGV;

open (IN, "$filename" ) or die "can't open $filename: $!\n";

while (<IN>) {

    $input = $_;
    last if $. == $line;

}

if ($. != $line) {

    die "didn't find line: $line in $filename\n";

}
print $input;

##</code><code>##

@lines = <FILE>;
$desired_line = $lines[$LINE_NUMBER];