I just need ASP script converted to PERL