use warnings;
use subs qw/ open /;
sub open 
{
    print "Hello world!\n";
    CORE::open($_[0],"d:\\input.txt")
  
}
1;

##</code><code>##

use lib "d:\\";
use open_temp; 
open(SEL);
print <SEL>;