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