sub icon {
my $sIcon = Win32::Console::SetIcon("logo.gif");
}

##</code><code>##

$CONSOLE->SetIcon("C:/My/Path/To/Custom.ico");

##</code><code>##

my $CONSOLE = Win32::Console->new;
$CONSOLE->SetIcon('C:/myIcon.ico');

##</code><code>##

Win32::Console->SetIcon('C:/myIcon.ico');