#!/usr/bin/perl
use strict;
use warnings;
use Personality::Type::MBTI;
 
my $mbti = Personality::Type::MBTI->new();
 
# sample results from a questionnaire
my @test = qw/i e i e i n s n s n t f t f t p j p j p/;
 
# calculate type
my $type = $mbti->type( @test );
 
print "Your type is '$type'\n";