package UI;
use Object::Tiny qw(dummy);
sub hello {print "superclass hello\n"};

package UI::Graphical;
@ISA = 'UI';
sub hello {print "make a window\n";}

my $ui = UI->new;
$ui->hello;
$ui = UI::Graphical->new;
$ui->hello;
1;