perl全く知らないので教えてください orz