Select Code to Download

package MyClass::A;
use strict;
...

my $s = MyClass::A->new();
$s->serve();

Can't locate object method "run" via package "MyClass::A" at b.pl line
+ 28.

#use Exporter;
use base qw(Net::Server::PreFork);
#our @ISA = qw(Exporter);