Select Code to Download

my $data = undef;
my $object_or_undef = bless( $data, 'My::Class' );

package My::Class {
  sub new {
...

my $data = undef;
my $object_or_undef = My::Class->new( $data );