samples for perl