Hello sago,

Is this a actually Perl script? If so, what Perl code have you already written so that we may have the opportunity to debug it?

If not, well then the question is off-topic for PerlMonks and should be asked at a more appropriate venue.