Help for this page

Select Code to Download


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