new perl one liners logo