use Win32::GUI();
use Win32::API;
Win32::API->Import('kernel32','BOOL SetConsoleIcon(HWND icon)');
SetConsoleIcon( Win32::GUI::Icon->new('box.ico')->{-handle} );