Help for this page
#!perl -w use strict; ... print qq( $i : "$_" \n); $i++; }
sudo -H -u prodaccount sudotest.pl