Help for this page

Select Code to Download


  1. or download this
            my $command = "cssh -G -T 'OOPCSSH' -l username  $goto";
        my $dl = Expect->new();
...
                #$dl->expect(undef, "\$");
        #$dl->send("$passwd\r");
               #}
  2. or download this
    Spawned 'Proc::Background=HASH(0x87abc5c)'
    spawn id(4)
...
    eval {...} called at /usr/local/lib/perl/5.8.8/Tk.pm line 406
    Tk::MainLoop() called at ./Layout.pl line 427