package Whatever;
sub new {
 bless { foo => 'bar' }, shift;
}
1;

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