use strict;
use warnings;
use File::Copy ();


File::Copy::copy('D:\vmware\winxp\Windows XP Professional-flat.vmdk', 'G:\vmware_bck\winxp\test.vmdk') || die print "$!";