$ cat <<END >in-yours
use File::Spec;
use File::Basename;
use lib &dirname(File::Spec->rel2abs($0));

print "$_\n" for sort keys %INC;
END
$ perl in-yours >out-yours
$ cat <<END >in-mine
use FindBin qw($Bin);
use lib $Bin;

print "$_\n" for sort keys %INC;
END
$ perl in-mine >out-mine
$ comm out-yours out-mine
		Carp.pm
		Config.pm
		Cwd.pm
		Exporter.pm
	Exporter/Heavy.pm
		File/Basename.pm
		File/Spec.pm
		File/Spec/Unix.pm
	FindBin.pm
		XSLoader.pm
		attributes.pm
		base.pm
		lib.pm
		re.pm
		strict.pm
		vars.pm
		warnings.pm
		warnings/register.pm
$