use File::Spec;
    system("rm -rf " . File::Spec->catfile($tmpdir, "*"));