#!/usr/bin/perl
use warnings;
use strict;

use FindBin;
use lib $FindBin::Bin;

require 'required1.pl';
use module;
warn 'script INC ', $INC{'required1.pl'};

subroutine();