32 use Cwd qw(getcwd realpath);

    32 use Cwd qw(getcwd realpath);

    33 use Digest::MD5 qw(md5_hex);

    33 use Digest::MD5 qw(md5_hex);

    34 use OSSP::uuid;

    34 use OSSP::uuid;

    35 

    35 

    36 my $DIR     = "d";

    36 my $DIR     = "d";

    38 

    38 

    39 sub human($);

    39 sub human($);

    40 sub deletedir(@);

    40 sub deletedir(@);

    41 

    41 

    42 delete @ENV{ grep /PATH/, keys %ENV };

    42 delete @ENV{ grep /PATH/, keys %ENV };