#!/usr/bin/perl -Tw

$ENV{PATH} = "/bin:/usr/bin";

my $tmp_dir = "/tmp/blahblah-11-14-2000";

if (-e "$tmp_dir") {
	system("rm","-f","$tmp_dir","*") == 0 or
		warn "Temporary folder already existed, and unable to",
              "erase files within: $!\n";
}else{
	mkdir ("$tmp_dir") or 
		die "Unable to make temporary folder $tmp_dir: $!\n";
}