$match = '/\[0c/';
$matchop = $match;
$hostname = 'silly.vax.machine';

$vax = new Net::Telnet(Prompt => $match);
$vax->errmode("return");
$vax->open($hostname);
#$vax->dump_log($dumplog);

$start = localtime();
$vax->login(Name => $login, Password => $password) || die "cannot login to $hostname";

$vax->cmd(String => $string1, Timeout => 30, Prompt => $matchop);
$vax->cmd(String => $string2, Timeout => 30, Prompt => $matchop);
$vax->cmd(String => $string3, Timeout => 55, Prompt => $matchop);