You might want to have a look at $! if the open fails.

open(OUTFILE, ">$save_directory\/$file_name") or die "can't open $save_directory\/$file_name coz $!";

rdfield