Changed perl command call