sub new {
  my $me = shift;
  if (ref( $me ) eq 'my_class_name') {
    print "I'm blessed!\n";
  } else {
......