Mongo dump from Perl

dump.pl

#!/usr/bin/perl

use DateTime;
use File::Path;
use DBI;
use File::Basename;

require File::Spec->catfile(dirname(__FILE__),'nearme-dump.cnf');
my $root = '/mnt/nfs/bak/nearme';
my $time = DateTime->now()->ymd();
my $path = File::Spec->catfile($root,$time);

rmtree($path);
unlink("$path.tgz");
die "Could not create '$path': $@\n" if (!-d $path && !File::Path::mkpath($path));

my $exec = "mongodump --username=$user --password=$pass --host=$host --db=$name --out=$path > /dev/null 2>&1";
my $stat = `$exec`;
#print "Dump of $name failed: $stat\n" if ($stat);

chdir($root);
my $stat = `tar -czf $path.tgz $time`;
print "Archive of $path failed: $stat\n" if ($stat);
rmtree($path);

$time = DateTime->now()->subtract('days' => 7)->ymd();
$path = File::Spec->catfile($root,$time);
unlink("$path.tgz");
1;