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

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

print "******DUMPING $cltdb TRANSACTION******\n";
This part does not work.
my $th = new Net::Telnet (input_log => "$dir/$log",
                          dump_log => (*STDOUT),
                          Host => "$server",
                          Prompt => '/sybase?/');

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