use Scalar::Util qw(blessed);

if (my $class=blessed $foo) {
  print "Its an object of class $class\n";
} else {
  print "Its not an object\n";
}