#!/usr/bin/perl -w
use strict;
use Tk;
my $mw;
eval {
    $mw = MainWindow->new;
};
if($@) {
    print "Using text only\n";
    undef $mw;
}

if($mw) {
    $mw->MainLoop;
} else {
    print "Text version here\n";
}