if(typeof($var) eq "Test")
{
    print "\$var ist vom Typ Test\n";
}