Perl套接字程序，带有电子邮件

Question

我是套接字编程的新手，这是我的要求

#!/usr/bin/perl
use IO::Socket::INET;
$| = 1;
my ($socket,$client_socket);

$socket = new IO::Socket::INET (
PeerHost => '192.168.0.100',
PeerPort => '5000',
Proto => 'tcp',
) or die "ERROR in Socket Creation : $!\n”;

所以如果套接字没有建立，即客户端无法访问，则触发电子邮件。我知道电子邮件模块但不知道如何在客户端无法访问时如何捕获退出代码。感谢任何帮助。