comment annonation based swagger json generator in perl