Create perl_func.pm

Basic function called by other scripts