"Perl command line interpreter has stopped working" 

close the program or check online for solution and close the program. 

i copied the porgram details from the window. please see below.


##</code><code>##


Problem signature:
  Problem Event Name:	APPCRASH
  Application Name:	perl.exe
  Application Version:	5.10.0.1005
  Application Timestamp:	4a199d7b
  Fault Module Name:	perl510.dll
  Fault Module Version:	5.10.0.1005
  Fault Module Timestamp:	4a199d7a
  Exception Code:	c0000005
  Exception Offset:	0009b108
  OS Version:	6.1.7601.2.1.0.256.4
  Locale ID:	1033
  Additional Information 1:	0a9e
  Additional Information 2:	0a9e372d3b4ad19135b953a78882e789
  Additional Information 3:	0a9e
  Additional Information 4:	0a9e372d3b4ad19135b953a78882e789

Read our privacy statement online:
  http://go.microsoft.com/fwlink/?linkid=104288&clcid=0x0409

If the online privacy statement is not available, please read our privacy statement offline:
  C:\WINDOWS\system32\en-US\erofflps.txt

##</code><code>##

perl TimeZoneCheck.pl
Starting main program

0        server1

1        server2
Host server1 is alive
Host server2 is alive

server2   India Standard Time     (GMT+05:30) Chennai, Kolkata, Mumbai, New Delhi         (GMT+05:30) Chennai, Kolkata, Mumbai, New Delhi
Free to wrong pool 49cc3c8 not f3ea8, <FILE> line 5 during global destruction.

##</code><code>##


use strict; 
use warnings;
use threads;
use threads::shared;
use Net::Ping;
use Switch;
use Net::DNS;
#use Try::Tiny;
#use DBI;
use Win32::OLE qw(in with);


use Carp;

use constant wbemFlagReturnImmediately => 0x10;
use constant wbemFlagForwardOnly => 0x20;

$Win32::OLE::Warn = 3;


sub GetTimeZone { 	
 		my $paramsub = shift;   
 		my @subparam = split(/:/, $paramsub); 
 		my $subrow = $subparam[0];
 		my $subhost = $subparam[1];
 		$subhost =~ s/^\s+//m;
		$subhost =~ s/\s+$//m;
 		# Create a new ping object
		my $pingit = Net::Ping->new("icmp");
		my $timeout = 10;
 		
   	print "\n$subrow \t $subhost \n";
   	
    my $user="domain\\username";
    my $pwd="password";
    my $locatorObj =Win32::OLE->new("WbemScripting.SWbemLocator") or die "ERROR CREATING OBJ";  	
    $locatorObj->{Security_}->{impersonationlevel} = 3;
    
    #return ($subrow, $subhost);
       
    
    # perform the ping
    if( $pingit->ping($subhost, $timeout) )
  	{
      print "Host ".$subhost." is alive\n";
  		eval {  		
  			my $objWMIService = $locatorObj->ConnectServer($subhost, "root\\cimv2", $user, $pwd);
  		
  	  	if (Win32::OLE->LastError()) {
  	  		#$sheet->Cells($row,5)->{'Value'} = "$_\n";
        	print "$_\n";
        	Win32::OLE->LastError(0);  # this clears your error
    		}
    		else
    		{
					my $colItems = $objWMIService->ExecQuery 
    				("Select * from Win32_Timezone","WQL",wbemFlagReturnImmediately | wbemFlagForwardOnly); 
    			if (Win32::GetLastError()) {
  	  			#$sheet->Cells($row,5)->{'Value'} = "$_\n";
        		print "$subhost : $_\n";
        		Win32::OLE->LastError(0);  # this clears your error
    			}
    			else{
    				foreach my $objItem (in $colItems) 
						{ 
							print "\n$subhost \t $objItem->{StandardName} \t $objItem->{Caption} \t $objItem->{Description} \n";
							#$timezonename = $objItem->{StandardName};
							#$timezonecaption =$objItem->{Caption};
							#$timezonedescription = $objItem->{Description};      
							##objOS.CurrentTimeZone/60 & ":" & right("00" & objOS.CurrentTimeZone mod 60, 2)
						} 
					}
	   		}    		   	
	 		};
	 		  if ($@) {
    			print "Warning: Error querying object $subhost: $@\n";
    	  	#$sheet->Cells($row,5)->{'Value'} = "$@";
    			#$row++;
    			next;
  			}
		}
    else
  	{
      print "Warning: ".$subhost." appears to be down or icmp packets are blocked by their server\n";
    	#$sheet->Cells($row,5)->{'Value'} = "Warning: ".$netbiosname[0]." Down";
	  } 
	  $pingit->close();
}


print "Starting main program\n";

open FILE, "c:\\serverping.txt" or die "could not open the file";
my @lines = <FILE>;
my $linecount = scalar @lines;

my $row = 0;
my $line =$lines[$row];
$line =~ s/^\s+//m;
$line =~ s/\s+$//m;

my $mainparam = $row.':'.$lines[$row];
my $thr0  = threads->new(\&GetTimeZone, $mainparam);
$row++;

$mainparam = $row.':'.$lines[$row];
my $thr1  = threads->new(\&GetTimeZone, $mainparam);
$row++;

while(1){
	if ($thr0->is_joinable()) {
  	$thr0->join;	
  	if ($row<$linecount){
  	  	$mainparam = $row.':'.$lines[$row];
				$thr0  = threads->new(\&GetTimeZone, $mainparam);
				$row++;
		}
	}
	if ($thr1->is_joinable()) {
  	$thr1->join;
  	if ($row<$linecount){
  		$mainparam = $row.':'.$lines[$row];
			$thr1  = threads->new(\&GetTimeZone, $mainparam);
			$row++;
		}
	}
	my $thread_count = threads->list();		
	#print "$thread_count \n";
	last if ($row==$linecount && $thread_count == 0);	
}

print "End of main program\n";

close FILE;