use Win32::Process; my $process; Win32::Process::Create($process,'C:/WinNT/notepad.exe','notepad',0,0,'.') || die ErrorReport; $| = 1; print '.' and sleep 1 for 1..5; $process->Kill(0);