Select Code to Download

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

open(SAVE,">&STDOUT")
  or die "Couldn't save STDOUT: $!\n";
...
# Do validation
open(STDOUT,">&SAVE")
  or die "Couldn't restore STDOUT: $!\n";