perl shell