Loading...

XML

Word

Printable

Unless you add something like

use English qw( -no_match_vars );

the variable $PID will be empty. Use $$ instead, like:

        # write file

        $tmpfile = "$CACHEFILE.TMP.$$";

        open (OUTFILE, ">$tmpfile")

                or die "File open failure: $tmpfile\n";

        print OUTFILE @data;

        close OUTFILE;

        rename ( $tmpfile, $CACHEFILE );