my $th = new Net::Telnet (Timeout => 5,
                          #Errmode => 'die',
                          input_log => 'telnet_prompt.log',
                          Prompt => '/$username?/');
$th->open("$server");
$th->login("$user", "$unixpass");
@lines = $th->cmd("backup_sybase.pl Server.Name=$instance Backup.Database=$cltdb");
print @lines;