Added Perl Script for MOSS