print defined $realhome ? "realhome:  $realhome\n" : "\$realhome not defined\n";