#!/usr/local/bin/perl -w
use Tk;
use strict;
my %info;
my $mw = MainWindow->new;
$mw->title("Data Entry");
my $f = $mw->Frame->pack(-side => 'bottom');
$f->Button(-text => "Exit",
-command => sub { exit; })->pack(-side => 'left');
$f->Button(-text => "Save",
-command => sub {
print "asdf";
})->pack(-side => 'bottom');
MainLoop;