add perl script
delete
Merge pull request #4 from Tacahilo/perl

Wrote Perl Script