if($keepfile)
{
    my $dest;
    sleep 1;
    eval{
        $dest = $$appconfig{"destination"}."\\$filename";
        Win32::CopyFile($file,$dest,1);
    };
    if($!)
    {
        report("Error: Unable to move file to destination - ".$dest."\n $!");
        #die;
    }
}