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;