practice(perl-2): write main2.pl