use Tk;
    use Win32::GUI;

    my ($DOS) = Win32::GUI::GetPerlWindow();
    Win32::GUI::Hide($DOS);

    $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -title => "Icon Test",
                                    -width => 600, -height => 400);
    
    $icon = new Win32::GUI::Icon("test.ico");
    $main->SetIcon($icon);
    
    new Win32::GUI::NotifyIcon(
    $main,
    -name => "NI",
    -id => 1,
    -icon => $icon,
    -tip => "Icon Text",
    );

    $main->Show();
    Win32::GUI::Dialog();
    
    $main->NI->Delete(-id => $counter);

    Win32::GUI::Show($DOS);
    
    sub Main_Terminate {
        -1;
    }
    
    sub Main_Minimize {
        $main->Disable();
        $main->Hide();
        1;
    }

    sub NI_Click {
        $main->Enable();
        $main->Show();
        1;
    }