my $file;
open $file, ">$filename" || die("Couldn't open file");
...