my $th = new Net::Telnet (input_log => "$dir/$log",
                          dump_log => (*STDOUT),
                          Host => "$server",
                          Prompt => '/sybase?/');

print "******DUMPING $cltdb TRANSACTION******\n";

$th->login("user", "$unixpass");
my @lines = $th->cmd("backup.pl Server.Name=$dbsrvr Backup.Database=$cltdb Backup.Type=tran");
$th->waitfor('/ /');
print @lines;
$th->waitfor('/sybase?/');
print @lines;