Changed the way perl is called