open (my $fh, $mode, $file) || die $!;