Select Code to Download

#!/usr/bin/perl
use strict;
...
    $object->test;
}

package demo1;

...
    print "demo1\n";
}
1;

package demo2;

...
    print "demo2\n";
}
1;

my $temp = "demo1.pm";
require $templ