use strict;
use warnings;
use Foo;

my $obj = Foo->new();
$obj->test();