open FH,"<",$datafile or die "Could not read virtual file";