my $old_handle;
if (-t STDOUT) { 
   open (MORE, "| more") or die "No more $!\n";
   $old_handle = select MORE;
}