use Tk;

$main=MainWindow->new();
$main->Entry(-width => 20,
             -textvariable => \$regex,
             )->pack();
$main->Button(-text=>"Print me",
              -command => sub{ print "$regex\n" }
              )->pack();
MainLoop;