sub SFTPTest()
{
	my $whoami=qx(whoami);
	my $id=qx(id);
	$protocol = "SFTP";
	$Port = $SFTPPort;
	my $SftpConn = Net::SFTP::Foreign ->new(host=>$HostFQDN, user=>$stnocuser, password=>$passwd, port=>$Port, timeout=>$TimeOut);
	my $SftpConnErr = $SftpConn->error;
	if ($SftpConnErr)
	{
		my $SftpConnStatus =$SftpConn->status;
		$ErrorState = &CheckErrorMsg($SftpConnStatus);
		return ($ErrorState);
	}
	my $SftpConnLsMsg = $SftpConn->ls;
	$SftpConnErr = $SftpConn->error;
	if ($SftpConnErr)
        {
 		my $SftpConnStatus =$SftpConn->status;
		$ErrorState = &CheckErrorMsg($SftpConnStatus);
         }
$SftpConn->disconnect;
	
	return($ErrorState);
}