Using PERL to select a random lines from a file

This is a neat PERL script, which takes in a text file as an input, and prints a specified number unique random lines from that file. In order for you to run this script, save the following code into a file and run it from the command line with the argument is the file name and the second argument is the number of random lines you want to print.