Select Code to Download

package Whatever;
sub new {
...
use Storable;
my $obj = new -> Whatever;
store $obj , "somefile.sto";