The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 2;

my $dir = "t/var/";
my $file = "test.db";

if(-e $dir . $file) {
    ok(unlink($dir . $file), "Removing test database.");
    ok(rmdir($dir), "Removing test directory.");
}

else {
    fail("Can't find the test database.");
}