use FileHandle;
my $fh = FileHandle->new("> $file");
unless ($fh) {
  die "Error: couldn't create '$file': $!\n";
}
else { 
  print $fh "irgendwas\n";
  $fh->close();
} # else