first script of Perl Tutorial