add how to use perl.sample