The script is unoriginal and from a popular Perl book. It's only a model of my concept. I apologize for the misunderstanding.