# cat test_me.pl
#!/usr/bin/perl -w

use strict;
use warnings;

use Top::Middle;

my $class = "Top::Middle";

my $obj = $class->new(
    'info'  => 'some_data_or_whatever'
);

$obj->method();

exit 0;