#!usr/bin/perl 
use Tk; 
$frmMain = MainWindow->new(title=>'Test'); 
MainLoop;