use strict;
use Tk;
my $mw = MainWindow->new;
$mw->geometry("500x200");
$mw->title("Hello User");
$mw->Label(-text => 'Hello user, please Load the required fileand then press ok')->pack();
$mw->Button(-text => "OK", -command =>sub{exit})->pack();
MainLoop;