open (READFILE, $filename)|| die "Failed to opne $filename: $!";