#!/usr/bin/perl
use warnings;
use strict;
use Net::Telnet;

sub attemptTelnetCheck
{
    # host is a string, expressing an IPv4 address:
    my ($host) = @_;

    # Create a telnet object to use TCP port 1234, timeout 3 seconds:
    my $telnetObj = new Net::Telnet( Port => '1234', Timeout => 3 );

    # Set errormode to "return error message upon failure", not die immediately:
    # (I'm not sure this works)
    my $telnetMode = $telnetObj->errmode("return");

    # Try to open telnet session to host:
    $telnetObj->open($host);

    # How do I check to see if $telnetObj is valid???
    if(exists($telnetObj))			# Line 22
    {
        # Close telnet session:
        $telnetObj->print('exit');
        # Return TRUE:
        return 1;
    }
    else
    {
        # Failure!  Return FALSE:
        return 0;
    }
}

if(attemptTelnetCheck('10.0.0.1')
{
    print "SUCCESS!";
}
else
{
    print "failure.";
}