use IO::Socket::INET qw( );

my $sock = IO::Socket::INET->new(
    Proto    => 'tcp',
    PeerHost => 'axtcnr:6540',
)
    or die("Can't connect to axtcnr:6540: $!\n");