class MyButton;
use Base 'Button';

sub on_click
{
  print "You pressed a button";
}

package main;
my $button = new MyButton();