use strict; use warnings; 
use Wx;

package MyApp;
use base 'Wx::App';

sub OnInit {	
	my $frame = Wx::Frame->new( 
		undef, 
		-1,
		'A Clickable Label', 
	);		
	my $label = Wx::StaticText->new(
	       $frame,     
           -1,          
           "Click here to exit",   		
    );		
	$frame->Show;			
}
  
MyApp->new->MainLoop;