package test_setup; use strict; use warnings; our $data_file; sub import { my ($package, $df) = @_; # we never get here $data_file = $df if defined $df; } # etc 1; #### use strict; use warnings; use t::test_setup qw/ file_name /; use Test::More tests => 6; #etc