use Test::More tests => 50;
use File::Temp qw(tempdir);

my $dir = tempdir(CLEANUP=>1);

# tests ...
# more tests ...
# yet even more tests ...

# get out of $tmpdir to clean it up
chdir("/") if THERE_ARE_NO_FAILING_TESTS;