my $file = 'somefile.txt';
open (THEFILE, ">$file") or
   die "Could not create $file - $!\n";