sysopen(INPUT, $file, O_RDONLY) or die "unable to open the input file";