use Tk;
require Tk::Entry;
require Tk::Button;

my $mw = MainWindow->new();

my %work = (
    "VM-1" => "da923",
    "VM-2" => "dz427");

main_display(\%work);

MainLoop;

# -----------------------------------------------------
sub main_display {
    my $ref_hash = shift(@_);

    my $lab1 = $mw->Label(-textvariable => \$ref_hash{'VM-1'},
                                            -relief => 'sunken',
                                            -width => 10,
                                            )->pack();
    my $lab2 = $mw->Label(-textvariable => \$ref_hash{'VM-2'},
                                            -relief => 'sunken',
                                            -width => 10,
                                                )->pack();
    my $but = $mw->Button(-text=>'clear', -command=> [sub{
                                          $ref_hash = {};
                                          $mw -> update;
                                           }] )->pack();

}