$host = new Net::Telnet (Timeout => 30, Prompt => '/[%#>] $/');
$prev = $host->errmode("return");
$host->open ($server_name);
$host->login($user_name, $pass_word);
$$msg = $host->errmsg;

$prompt = '_tibPrompt_';
$host->prompt("/$prompt\$/");
$host->cmd("set prompt = '$prompt'");

####### Get the disk usage.
$dsk_cmnd = "df -k";
@disk_result = $host->cmd($dsk_cmnd);