You can create your own popup with a toplevel, then you can put anything you want into it.

#!/usr/bin/perl
use Tk;
use strict;

my ($mw, $dir);

$mw = MainWindow->new();
$mw     -> Button ( -text => "OK",
                    -command => \&create_new)
        -> pack ( -side => 'left');
$mw     -> Button ( -text => "Cancel",
                    -command => sub {exit;})
        -> pack ( -side => 'right');
MainLoop;

sub create_new
{


        my $mt = $mw -> Toplevel (-title => "first");
        my $rb1 = $mt -> Radiobutton( -text => "one",
                                    -value => "one",
                                    -variable => \$dir)
                         -> pack(-side => 'top',
                                 -fill => 'x');
        my $rb2 = $mt -> Radiobutton( -text => "two",
                                       -value => "two",
                                       -variable => \$dir)
                         -> pack(-side => 'top',
                                 -fill => 'x');

        $mt     -> Button ( -text => "OK",
                    -command => [\&create_new2])
                -> pack ( -side => 'left');
        $mt     -> Button ( -text => "Cancel",
                    -command => sub {$mt -> destroy;})
                -> pack ( -side => 'right');
}

sub create_new2
{

        my $mf = $mw -> Toplevel(-title => "second");

        $mf     -> Button ( -text => $dir)
                -> pack ( -side => 'left');
        $mf     -> Button ( -text => "Cancel",
                    -command => sub {$mf -> destroy;})
                -> pack ( -side => 'right');
}
[download]