#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw;
my $xtest =  eval( 'my $mw = new MainWindow;' );

if($@) {
 chomp($@);
 print "X error: '$@'\n";
  } else {
   print "X ok\n";
   }

MainLoop;