Fixes: #3008 perl error : Global symbol