my $first_line = qx/head -1 $filename/;
print $first_line;

my $last_line = qx/tail -1 $filename/;
print $last_line;

my $n = 100;
my $nth_line = qx/tail +$n $filename | head -1/;
print $nth_line;