open (WORK, "<$work_file") or die "Couldn't open $work_file."; # Open the working file