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