File Perl

$filename = "file.dat";
open FILEHANDLE, ">$filename" or die "Cannot open $filename\n";