my $output = qx{ls};
( open my $file, '>', 'filename' ) or die "Cannot open file 'filename' for writing: $!\n";
print $file $output;
close $file or die "Error writing to file 'filename': $!\n";