Select Code to Download

#!/usr/bin/perl -w

...
03 Now is the time for all good men to come to the aid of their party 
+and not going.
03 Now is the time for all.

 
...

...
    next if $seen{sha1($_)}++;      # ignore if a line comes again  
    ....
...