my $filename = "output.txt";
open my $fh, '>', $filename or die "$filename: $!";
print $fh "Hello";
close $fh;