#!/usr/local/bin/perl
use Tk;
# Main Window
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello World") -> pack();
my $button = $mw -> Button(-text => "Quit",
 -command => sub {exit})
-> pack();
MainLoop;

##</code><code>##

package Tk::Event;
use vars qw($VERSION $XS_VERSION @EXPORT_OK);
END { CleanupGlue() }
$VERSION = sprintf '4.%03d', q$Revision: #15 $ =~ /\D(\d+)\s*$/;
$XS_VERSION = '804.027';
use base  qw(Exporter);
use XSLoader;
@EXPORT_OK = qw($XS_VERSION DONT_WAIT WINDOW_EVENTS  FILE_EVENTS
                TIMER_EVENTS IDLE_EVENTS ALL_EVENTS);
XSLoader::load 'Tk::Event',$XS_VERSION;
require   Tk::Event::IO;
1;
__END__

##</code><code>##

Microsoft Windows [Version 6.1.7600]
Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\Users\x>cd desktop

C:\Users\x\Desktop>hello.pl

Can't locate loadable object for module Tk::Event in @INC (@INC contains: C:/Per
l/site/lib C:/Perl/lib .) at C:/Perl/lib/Tk.pm line 13
Compilation failed in require at C:/Perl/lib/Tk.pm line 13.
BEGIN failed--compilation aborted at C:/Perl/lib/Tk.pm line 13.
Compilation failed in require at C:\Users\x\Desktop\hello.pl line 2.
BEGIN failed--compilation aborted at C:\Users\x\Desktop\hello.pl line 2.

C:\Users\x\Desktop>