Help for this page

Select Code to Download


  1. or download this
        next if $File::Find::name eq '.' or $File::Find::name eq '..';
    
  2. or download this
        return unless -f;
    
  3. or download this
        open my $file, '<', $File::Find::name or die "Error openning file:
    + $!\n";
    
  4. or download this
        open my $file, '<', $_ or die "Error openning '$_' $!\n";