Help for this page

Select Code to Download

Select or download this

sub tailFile {
   my ($file, $lines) = @_;
...
   close F;
   return @lines
}