if ( ref($obj) eq "Foo" )
{
   # We have a Foo object
}