Lab No V. ADDITIONAL EXERCISES: 1. Write a getNexfToken ( )to generate tokens for the perl script given below. #! /usr/bin/perl #get total number of arguments passed. Sn scalar (a ): foreach Sitem(a)t Ssum +Sitem; verage Ssum Sn: Represents path which has to be ignored by getNextToken(). # followed by any character other than ! represents comments. Sn followed by any identifier should be treated as a single token Scalar, foeach are considered as keywords. @ +- are treated as single tokens. Remaining symbols are tokenized accordingly