>perl t_create_f_PM.pl
Use of uninitialized value in concatenation (.) or string at (eval 1) line 2.
param: hi there   common:    private: xpto
Use of uninitialized value in join or string at (eval 1) line 3.
function return: `hi there;;xpto'