Net::Telnet

["Frank Nørvig" <sslug@sslug>]

Hejsa,

Jeg har et par spørgsmål vedr. Net::Telnet.
Jeg har lavet følgende:
-----------------------------------------------
use Net::Telnet;

sub connerr
    {
      print "Fejl ved tilslutning\n";
      die;
    }


$telnet = new Net::Telnet ( Timeout=>10,
                            Errmode=>'die');

$telnet->input_log('input.txt');
$telnet->output_log('output.txt');
$telnet->output_record_separator('');
$telnet->binmode(0);
$telnet->telnetmode(0);

print "Tilslutter...\n";
$telnet->open(Host => '172.16.1.249') or &connerr;
...
...
...
------------------------------------------------------------

Men det virker ikke helt. Jeg kan sagtens connecte,  men hvis der ikke er
forbindelse, laver den blot en die, i stedet for at kalde "connerr".

Jeg ved at dette burde være et forholdsvis simpelt problem, men ikke desto
mindre, så sidder jeg fast :-(
Hvad gør jeg galt?

Mvh Frank