perl that seems to work
little comment