open my $file_handle, $mode, $filename or die $!;