#!/bin/perl use lib (); BEGIN { lib->import ( sub { my $fh; open $fh, "tests/IncSub.pm" or die $!; $fh } ) } use IncSub; IncSub::check