Select Code to Download

use File::Slurp;

my $f = read_file $filename;
my $line2 = $1
  if ($f =~ m!\A(?:.*\n){@{[$line_no-1]}}(.*)\n!m);

use Tie::File;

tie my @file, 'Tie::File', $filename
  or die "Couldn't tie '$filename': $!";

my $line2 = $file[9];