Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
            die "mkdir ". File::Spec->catfile( $testdir, "test", $dirn
+ame ) .": $!\n";
    }
    #...