Select Code to Download

#!/usr/bin/perl

...
  print"$_ -> ", (<$fh> // "AT LAST LINE\n");
  seek $fh, $pos, 0;
  }

line one -> line two
line two -> line three
...
line three -> line four
line four -> line five
line five -> AT LAST LINE