Perl + Net::Telnet

[Mystirios]

Λοιπόν , προσπαθώ να γράψω ένα σκριπτάκι σε Perl για να κάνω reboot το Sagem1500 (χρημιποιώντας το library Net::Telnet). Δεν έχω ασχοληθεί ιδιαίτερα με τη γλώσσα και καπου ψιλοχάνομαι.Το πρόβλημα βασικά είναι το εξής: Ανοίγω connection προς το ρουτεράκι και περιμένω to prompt για να του δώσω κατ'αρχήν το username.To prompt που στέλνει το Sagem είναι

 

''User Name : ''

 

και με την εντολή

 

$telnet->waitfor('/User Name : $/i');

 

λαμβάνω μήνυμα pattern match timed-out .Κάποα πρόταση για το pattern?

 

ΥΓ : Το $telnet->login('admin', 'pass'); μου δίνει timed-out waiting for login prompt οπου και πάλι το πρόβλημα μου είναι να του δώσω το σωστό pattern στο prompt