local *REAL_STDIN;
open(REAL_STDIN, ">&STDIN");
$this->{'_stdin'} = *REAL_STDIN;

##</code><code>##

if (defined($this->{'_stdin'})){
     local *REAL_STDIN = $this->{'_stdin'};
     if(!(open STDIN, "&REAL_STDIN")){
          return -3;
     }
}

##</code><code>##

#<snip>
if(!(open STDOUT, ">>&STDOUT")){
#<snip>