[PERL] Can't call method "write" on ...

Bonjour à tous,

voici mon problème. Lors de l'execution d'un programme, à un certain moment, il me dit ca:

Can't call method "write" on unblessed reference at Device/Modem.pm line 482, <FIN> line 1.

La ligne en question:
$me->log->write( 'error', '*FAILED* connect on '.$me->{'port'} );

venant de :

    # Check connection
    unless( ref $me->port ) {
        $me->log->write( 'error', '*FAILED* connect on '.$me->{'port'} );
        return $lOk;
    }

Avez vous une idée de comment corriger ca? (Le programme en question est bluetest.pl)

Voila voila, merci

Philippe