root# perl ult_test.pl -v john -h file1.txt


john got got