use strict;
use warnings;

package FetchOne;

sub new {
    my ($class, %params) = @_;

    return bless\%params, $class;
}

sub type {
    return 'Fetch type One';
}

package FetchTwo;

sub new {
    my ($class, %params) = @_;

    return bless\%params, $class;
}

sub type {
    return 'Fetch type Two';
}

package main;

my $type = 'Two';
my $obj = "Fetch$type"->new();

print $obj->type();

##</code><code>##

Fetch type Two