use Data::Dumper;
...
print "<pre>\n";
print Dumper $in;
print "</pre>";