sub called
{
  print "You pressed a button!";
}

my $button = new Button( name=>'foo', callback=>\&called );