open (READ, @in) || die "cannot open @in: $!.\n";