use Wx qw/ :allclasses /;
my $app=Wx::SimpleApp->new; 
my $frame = Wx::Frame->new( undef,-1,"Sand!" );
$frame->Show;
$app->MainLoop;