use POSIX;
use constant DATETIME => strftime("%Y-%m-%d_%H-%M-%S", localtime);

##</code><code>##

my $tmpdir = $ENV{TMP} . '/' . basename $0 . '.' . DATETIME . '.' . $$