Help for this page

Select Code to Download

Select or download this

foreach my $sh (@sh_f) {
    local $/ = ''; # slurp mode
...
    close OUT or die "Can't close filehandle OUT properly: $!\n";
    rename "$cf_dir/$sh.tmp", $sh; # if appropriate
}