Useful tool and hack tool using Perl