#! Perl script
use strict;
use warnings;
use Tk;
use SR::Dtest;

my $main = MainWindow->new;
$main->Dtest;
#$main->pack();

MainLoop;