open(NULL,"> /dev/null")
  or die "Couldn't open /dev/null: $!\n";
my $oldsel = select(NULL);
# Do validation
select($oldsel);