Select Code to Download

#!/usr/bin/perl -w

...
    $self->handler("start", \&a_start_handler);
    $self->handler("end", undef);
}