open(my $pm_fh,'<',$full_pm_path) or return 0; local $/=undef; my $code=<$pm_fh>; return eval($code);