如何使用perl脚本在PBS转矩中使用qsub -v命令?

I would like to pass variables to a perl script by using "qsub -v" command. This is the perl script I would run (it's just a test but if it doesn't work I cannot do anything more difficult)I would like to pass variables to a perl script