my $iface = $opt_g ? new MyInterface::Tk : new MyInterface::CommandLine;

##</code><code>##

$iface->notify("Your flies are down");
$iface->ask("Do you want to zip them up?", 'Y', 'N');