sub puts{
    use bytes;
    local $, = "\n";
    local $\ = "\n";
    print @_;
}

my $m = bless{}; # eine Instanz der aktuellen package
my $code = $m->can('puts');
$code->(1,2,3); # Ausgabe 1 2 3