use Data::Dumper;
print header('text/plain');
print Dumper($foo);