use Data::Dumper;
my $filename = time;    # i.e. a time-stamped filename
$filename .= '.txt';
open F, ">/your/chose/path/$filename";
print F Dumper($q);