perl testarg a b c