Help for this page
open IN_FILE, $in_file || die "Couldn't open $in_file: $!\n";
open(IN_FILE, ($in_file || die "Couldn't open $in_file: $!\n"));