use strict;
use Tk;

my $main = MainWindow->new(-title => "Testing purpose for larger file",-width => 500);