use Data::Dumper;
print "Content-type: text/plain\n\n",Dumper($my_data);