Any code would be most appreciated. Thank you

Right. Of course.

sub GetConfig
{
    my $telnet=new Net::Telnet();
    $telnet->output_log;

    $telnet->timeout($login_timeout);
    $telnet->errmode('return');
    $telnet->prompt('/[\$#>]/');

    $telnet->open( $deviceIP );

    if( $telnet->errmsg )
    {
        $msg = "Error connecting to device:  ".$telnet->errmsg;
        $telnet->close;
        return( 252, $msg );
    }

    #first try login without username and just password
    $telnet->waitfor( Match => '/Password:/');
    if( $telnet->errmsg )
    {
        $telnet->login($user, $pass);
        if( $telnet->errmsg )
        {
            $msg = $telnet->errmsg;
            $telnet->close;
            return( 251, $msg );
        }
    }
    else
    {
        $telnet->cmd( $pass );
        if( $telnet->errmsg )
        {
            # can't use errmsg as it will give command timed-out
            # and we should really indicate bad password
            $msg = "login failed: bad password";
            $telnet->close;
            return( 251, $msg );
        }
    }
[download]

I'm getting a Return Code 251 every time with the message "Login Failed. File Handle isn't open on Login"

I'm sure you're seeing some problem but I'm pretty sure it isn't what you're telling us.

First off, the code you posted won't work - it's not complete. See How do I post a question effectively?.

I've grep'd Net::Telnet for the error message "File Handle isn't open on Login" you're presumably getting from you first "return( 251, $msg );" line as there really is no other place in the code I see that could generate that message. I further grep'd my entire perl/lib, perl/site/lib and perl/vendor/lib directories for that message in some module and I don't find it.

Please provide (brief) working code that demonstrates the problem.

In the meantime, show us a screen cut/paste of a console Telnet to the device in question so we can rule out connecting to the device as an issue and prove it's the Perl code.