worklog script written in perl