$string = $obj->last_prompt;
$prev = $obj->last_prompt($string);

##</code><code>##

$host->login( $username, $password );
my $prompt = "_MYPROMPT_";
$host->prompt("/$prompt\$/");
$host->cmd("prompt = $prompt");