Select Code to Download

package OurApp;

...
use base ( 'OurApp::Base' );

1;

package OurApp::Base;

...
}

1;

base_directory=/home/trs80
show_code=1
turn_off_sprinkler=0
feed_dog=1

#!/usr/bin/perl

...

print $object->base_directory() , "\n";