## save:
  my $stdin_org ;
  open($stdin_org,"<&main::STDIN") ;
  
  ## redirect:
  open(main::STDIN,"<$0") ;
  
  ##restore:
  *main::STDIN = $stdin_org ; ## use main:: to really restore the main STDIN.