chomp($pse=`remsh $status[0] ps –ef | grep ‘pse’ | grep –v grep | wc –l`);

##</code><code>##

`rcp $status[0]:alive.log alive.log.p`;

##</code><code>##

#Start the remote shell and get the PID of the process
#Pipe the output into a file
chomp($pse_id=`remsh $status[0] ps –ef | grep ‘pse’ | grep –v grep | wc –l>pse_status &`);
my $not_done=1;
my $error_count=0;
while ($not_done==1)
	{
	my $running=`ps –ef | grep ‘$pse_id’ |grep –v grep |wv –l`;
	if ($running==0)
		{
		#process is still running, sleep then try again increment error counter
		if ($error_count>10)
                    {
                    &notify_FOT;
                    }
               else
                    {
                    $error_count++;
                    }
		sleep(5);
		}
	else
		{
		open(TEMP,”<pse_status”) or &notify_FOT;
		my @temp=<TEMP>;
		close(TEMP);
		$pse=chomp($temp[0]);
		last; # or $not_done=0;
		}
	}

##</code><code>##

my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}