gistfile1.txt

sub run
{
    my ($self) = @_;
    $self = $self->new if !ref $self;

    my $sub    = $self->get_sub;
    my $result = $self->$sub();

    $gp->print_page($result);

    return;
}