Select Code to Download

my @bits = split ' ', localtime( time() - ( 45 * 24 * 60 * 60 ) );;
my $n = 1; 
...
print $targetDate;;

2007-11-28

open OLDDB, '<', $dbname or die ...;
open NEWDB, '>', $tempfile or die ...;
...
unlink $dbname;
rename $tempfile, $dbname;