use Tk::Dialog;
[....]
$d=$mw->Dialog(-title => "reboot", -text => "Please reboot now?", 
    -buttons => [ qw/ Yes Cancel / ]);
if ($d->Show eq "Yes") {
    halt();
}