push @INC, \&my_sub;
sub my_sub {
    my ($self, $filename) = @_;
    warn $filename;
}

require IO::Socket;