perl -le 'use Data::Dumper; open(my $fh, ">x.txt") or die "open $!"; print $fh Dumper([1,2,3]);'