added perl data generator