#!/usr/bin/perl

use warnings;
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{$mw->destroy})->pack();
MainLoop;

print "continue program here after exiting dialog box\n";
[download]