gistfile1.pl

package MojSexyLib;

    sub new {
        my $self = {};
        bless $self;
        return $self;
    }

    sub dupa1 { }
    sub dupa2 { }
    
package main;

use Data::Dumper;

print Dumper([keys %MojSexyLib::]);

my $sex = MojSexyLib->new;

if (MojSexyLib->can('dupa1')) {
    print "Oko, jest dupa1\n";
}