use Win32;
use Win32::Process;

Win32::Process::Create($Win32::Process::Create::ProcessObj, 
	'C:/perl/bin/perl.exe',
	'perl traymail.pl',
	0,
	DETACHED_PROCESS,
	".") or die print_error();

sub print_error() {
	return Win32::FormatMessage(Win32::GetLastError() );
}