####### Inside "test0.pm"
###############################
return
$data = {
        k0 => 'apple' ,
        k1 => 'orange',
};


###### Inside the main program:
###############################
use strict;
use warnings;

my $pmfile = shift @ARGV;
my $pm = do "$pmfile"        
   or die