reading a specified line from command line argument in linux/perl
===

So, let's say I am writing a Perl program: 

    ./program.perl 10000 < file

I want it to read the 10000th line of "file" only. How could I do it using input redirection in this form? It seems that I keep getting something along the lines of 10000 is not a file.

I thought this would work: 

    #!/usr/bin/perl -w
    $line_num = 0;
    while ( defined ($line = <>) && $line_num < $ARGV[0])
        ++$line_no;
        if ($line_no == $ARGV[0]) {
            print "$line\n"
            exit 0;
        }
    }

But it failed miserably.
