sub getTypeName {
    my $typeNum = shift;

    if ($typeNum == 1)
    {
        return "A NAME";
    }
    elsif ($typeNum == 2)
    {
        return "B NAME";
    }
    elsif ($typeNum == 3)
    {
        return "C NAME";
    }
    else
    {
        die "$typeNum not valid\n";
    }
}