use strict;
use Win32;
use Win32::Process;
   
sub ErrorReport{
        print Win32::FormatMessage( Win32::GetLastError() );
    }
my $ProcessObj;
Win32::Process::Create($ProcessObj,
	$ENV{SystemRoot}."\\explorer.exe",
	"explorer.exe D:\\",
	0,
	NORMAL_PRIORITY_CLASS,
	".")|| die ErrorReport();

sleep 5;
$ProcessObj->Kill(0);