sub copyprocess
{
system ("xcopy $path $xmlpath /S");
Win32::MsgBox("Files copied successfully!");
}