I need to convert the below shell script to perl script.

Why ? They do a very simple job,...

i dont know what is that pgp
can anybody tell me what those three lines of code?

... and it seems dubious to me that you must convert them to perl if you don't know their purpose.

-David