$ perl -MDDS -MWin32::GUI -e " Dump( Win32::GUI::Window->new ) "
$Win32_GUI_Window1 = bless( {
                       -accel  => 0,
                       -handle => 1442212,
                       -name   => '#118a214',
                       -type   => 0
                     }, 'Win32::GUI::Window' );



##</code><code>##

$PuttyInfo->{'Window'} =  bless( {
                       -accel  => 0,
                       -handle => $PuttyInfo->{'WindowHandle'},
                       -name   => 'something',
                       -type   => 0
                     }, 'Win32::GUI::Window' );
$PuttyInfo->{'Window'}->Resize(($ScrWidth * .5), $ScrHeight);