use Data::Dump::Streamer;
use Fatal qw/open/;

open my $fh, '>', 'somefile';

my $x = {cat => [qw/man du/]};

Dump($x)->To($fh)->Out();