my $command = "cssh -G -T 'OOPCSSH' -l username  $goto";
		my $dl = Expect->new();
		$dl->raw_pty(1);
		#$dl->log_stdout(0);
                $dl->spawn($command) or die "Cannot spawn $command: $!\n";
                #dl->expect(undef, "assword");
		sleep 5;
		$dl->send("$passwd\r");
                #$dl->expect(undef, "\$");
		#$dl->send("$passwd\r");
               #}

##</code><code>##

Spawned 'Proc::Background=HASH(0x87abc5c)'
	spawn id(4)
	Pid: 17507
	Tty: /dev/pts/12
 at /usr/local/share/perl/5.8.8/Expect.pm line 181
	Expect::spawn('Expect=GLOB(0x87abce0)', 'Proc::Background=HASH(0x87abc5c)') called at ./Layout.pl line 453
	main::go() called at /usr/local/lib/perl/5.8.8/Tk.pm line 247
	eval {...} called at /usr/local/lib/perl/5.8.8/Tk.pm line 247
	Tk::__ANON__('Tk::Button=HASH(0x877a450)') called at /usr/local/lib/perl/5.8.8/Tk/Button.pm line 111
	Tk::Button::butUp('Tk::Button=HASH(0x877a450)') called at /usr/local/lib/perl/5.8.8/Tk.pm line 406
	eval {...} called at /usr/local/lib/perl/5.8.8/Tk.pm line 406
	Tk::MainLoop() called at ./Layout.pl line 427

SENDS PASSWD:
Sending 'PassWD1\r' to spawn id(4)
 at /usr/local/share/perl/5.8.8/Expect.pm line 1264
	Expect::print('Expect=GLOB(0x87abce0)', 'PassWD1\x{d}') called at ./Layout.pl line 456
	main::go() called at /usr/local/lib/perl/5.8.8/Tk.pm line 247
	eval {...} called at /usr/local/lib/perl/5.8.8/Tk.pm line 247
	Tk::__ANON__('Tk::Button=HASH(0x877a450)') called at /usr/local/lib/perl/5.8.8/Tk/Button.pm line 111
	Tk::Button::butUp('Tk::Button=HASH(0x877a450)') called at /usr/local/lib/perl/5.8.8/Tk.pm line 406
	eval {...} called at /usr/local/lib/perl/5.8.8/Tk.pm line 406
	Tk::MainLoop() called at ./Layout.pl line 427