sub subroutine {print @_;}
my $resultat = __PACKAGE__->can('subroutine');
$resultat->('Ich bin es!');