Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print "ChildClass:\n";
my $c=ChildClass->new();
$c->run();

#!/usr/bin/perl -w
use strict;
...
print "FormerChildClass:\n";
my $c=FormerChildClass->new();
$c->run();