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