Example of using Net::PortTest

port_check.pl

#!/usr/bin/perl -w
use strict;

use Net::PortTest;

on 143 => sub {
	my $sock = shift;
	my $results = {};
	my $rc = -1;

	$results->{banner} = $sock->getline;

	$rc = 0
		if $results->{banner} =~ '^\* OK';

	return $rc, $results;
};

on 25 => sub {
	my $sock = shift;

	my $results = {};

	my $banner = $sock->getline;

	if( $banner =~ /^(\d{3})/ ){
		$results->{banner} = $1;
		if( $results->{banner} >= 200 and $results->{banner} < 300 ){
			return 0,$results;
		}
	} else {
		return -2, $results;
	}
	return -1,$results;
};

# Alias a non standard port to an existing check
alias qw/ 1025 2025 / => 25;

my $results = run_tests '216.40.42.129' => 143;

# Run again, but against the non standard ports
$results = run_tests '10.0.0.1' => qw/ 25 1025 2025 /;

use Data::Dumper;
print Dumper( $results ),"\n";

exit 0;