Simple script of Perl