use Net::Telnet (); $host = new Net::Telnet (Timeout => 30, Prompt => '/[%#>] $/'); $prompt = '_funkyPrompt_'; $host -> open($hostname); $host -> login($username, $passwd); $host -> prompt("/$prompt\$/"); $host -> cmd("set prompt = '$prompt'"); $host -> cmd("..."); $host -> close;