Select Code to Download

package My::Tk::DialogBox;
use base qw/Tk::DialogBox/;
...
}
package main;
my $dialogbox = My::Tk::DialogBox->new( ... );

package Tk::DialogBox;
sub Show {
...
}
package main;
my $dialogbox = Tk::DialogBox->new( ... );