Even without single quotes it is not working. My code is like this:

$xTelnet = new Net::Telnet (Timeout => undef,
    Errmode => sub {$sMsg = $xTelnet->errmsg();
        $sLog = $xTelnet->dump_log();
        $sLastMsg = $xTelnet->lastline();

        print STDERR "\nERROR_MSG::$sMsg";
        print STDERR "\nLOG_MSG::$sLog";
        print  STDERR "\nLAST_MSG::$sLastMsg";
        return;
    },
    Prompt =>'/[\%\#\>\$] $/',);
[download]

edited: 17 Jun 2002 by jeffa - added code tags