Select Code to Download

use strict;
require DoStuff;
...
#$pop = <STDIN>;
$dogs->pop(5);
print $dogs->pop;

package DoStuff;
use strict;
##########################
...
    my $self->pop = shift;
return $self->pop;
}