perl oneliner.plc