Help for this page

Select Code to Download

Select or download this

  opendir( my $dh, $dir) or die $!;
  while ($file = readdir( $dh ))
...
  open( my $fh, $FullName) or die 
...

Select or download this

sub ScanDir
{
    local( DIR, FILE );
...