Help for this page

Select Code to Download

Select or download this

my %cache;
sub first_line
...
  $cache{$filename} = $line;
  return $line;
}