package Foo;

use strict;
use warnings;

sub new {
  return bless {};
}

sub method {
    return 1;
}

1;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
require Foo;

my $class = 'Foo';
my $obj = bless {}, $class;

print $obj->method;