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