Help for this page

Select Code to Download


  1. or download this
    open my $fh, "<", $file or die "Can't open '$file': $!";
  2. or download this
    open my $fh, "<", "Configs/$file" or die "Can't open '$file': $!";
  3. or download this
    foreach my $file (@files) {
    next if $file =~ m/^\./; # skip .. and .
    next unless -f "Configs/$file"; # test to see if a file
    open my $fh, "<", "Configs/$file" or die "Can't open '$file': $!";