Help for this page

Select Code to Download

Select or download this

open( FILE, $filename ) 
  or die "Can't open $filename for reading: $!\n";
...

Select or download this

foreach my $filename ( @files ) {
  unless( open( FILE, $filename ) ) {
...

  close( FILE );
}