use File::Copy;
use win32::process;

#########################
#    MAIN		#
#########################

&checkem();
&runem();


##################################################
# IF THE FILE NOT EXIST, COPY FILES FROM SERVER  #
##################################################
sub checkem {
	if (-e 'c:/xsms2.txt'){
		print "file exists\n";	
	}else{
		copy('//server/d$/xsms2.txt',"c:/xsms2.txt") or die "$!\n";
		print "file copied\n";	

	}
}

##################################################
# 		RUN THE PROCESS			 #
##################################################

sub ErrorReport{
	print Win32::FormatMessage( Win32::GetLastError() );
		}
sub runem(){
	Win32::Process::Create($ProcessObj,
				'c:/winnt/notepad.exe',
				'notepad c:/xsms2.txt',
				0,
				CREATE_NEW_CONSOLE,
				".")|| die ErrorReport();

	$ProcessObj->Suspend();
	$ProcessObj->Resume();
	$ProcessObj->Wait(INFINITE)
}