modified the post eval in perl