### Back up the file, if it exists
use File::Copy;
if(-e $file{1})  # if the file exists
{
     unless(copy($file{1}, $file{2}))
     {
          print "Failed to copy file: $!";
          exit;  # unless you want to do the copy anyway
     }
}

### Copy the database