"It is very easy in Perl"

Your code doesn't even run.

Can't take log of 0 at orig.pl line 2
[download]

open. You also don't check for failures when opening the log file.