use strict; use warnings; use feature 'say';

say "Perl $]";
my $vor = jjj->can('YYY'); say "vor require: ",!defined($vor)?"undef":$vor;
require "jjj.pl" and say "require";
my $nach = jjj->can('YYY'); say "nach require: ",!defined($nach)?"undef":$nach;

1;;