package Foo;
use Mixin qw(frobnicate);

sub new {
  bless {}, shift;
}

package main;

my $foo = Foo->new();
$foo->frobnicate();