Help for this page
d:\pm\perl mb.pl Your type is 'intp'
#!/usr/bin/perl use strict; ... my $type = $mbti->type( @test ); print "Your type is '$type'\n";