BEGIN{ use Data::Dump::Streamer(); package Data::Dump::Streamer; use overload '""' => sub { return $_[0]->Out }; } use Data::Dump::Streamer; print Dump({1,2}),"\n\n"; print Dump({1,2})."\n\n"; __END__ #### t/as.t t/dump.t t/usage.t