my $file = cwd.'\\'."myexcel.xlsm" ;
unlink $file if -e $file;
die "$file already exists!\n" if -e $file;