Select Code to Download

package Top;
...
extends 'Top';

1;

#!/usr/bin/perl -w 
use strict;
...
my $obj = Top->new();

| etc.