Select Code to Download

sub called
{
...
}

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

class MyButton;
use Base 'Button';
...

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