use FindBin ();
use lib $FindBin::Bin;
...
my $script = catfile($FindBin::Bin, 'test_opts_usage.pl');