Select Code to Download

package my_testmodule;

...
    push (@list,'oranges','lemons','apples');
}
1;

#!/usr/bin/perl

...
print "$list[0]\n\n";

exit;