"Variable $foo will not stay shared" Warning/Error in Perl While Calling Subroutine "Variable $foo will not stay shared" Warning/Error in Perl While Calling Subroutine unix unix