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

### A timeout of 600 will give you 10 minutes
### to wait for the processes to complete remotely