use Date::Format;
use Win32::Capture;

$counter = 0 ; 
while ($counter < 5)
{
	$datetime1 = time2str("-%d-%m-%Y-%k-%M-%S",time);
	$uname = Win32::LoginName() ; 
	$cname = Win32::NodeName() ; 
	$uname .= $cname;
	$uname .= $datetime1 ; 
	$image = CaptureScreen(); # Capture Whole screen.
	$image->SaveToFile("$uname.png");
	#$image->SaveToFile("//192.168.0.24/library/vishal/$uname.png");
	my $random_number = int(rand(15));
	print "\n" , $random_number ; 
	sleep ($random_number ) ; 
	$counter++ ; 
}