added perl catalyst example skeleton