Select Code to Download

  my $pos=tell DATA;
  seek DATA,0,0;
  my @src=<DATA>;
  print "> $src[$linenum-1]\n";
  seek DATA,$pos,0;