perl cat