Add examples for perl