[root@localhost root]# perl temp.pl
4
4