sub create_telnet
{
    my( $host, $pass, ) = @_;
    my ( $user, $passwd, $prompt ) = read_password_file( $host, $pass );

    my $telnet = new Net::Telnet (Timeout => 20,
                                  Binmode => 0,
                                  Prompt => ("/").(quotemeta $prompt).("/"),
                                  Output_log => $mydump,
                                  Errmode => 'die',
                                  );
    $telnet->open($host);
    $telnet->login( $user, $passwd );

    return $telnet;
}