#!perl -w
use strict;
my $i = 0;
for ($ARGV)
{
    print qq( $i : "$_" \n);
    $i++;
}

##</code><code>##

sudo -H -u prodaccount sudotest.pl