my $filename = 'foo_bar_baz.txt';
my $filehandle = new IO::File '>' . $filename or die "Can't open '$filename': $!";