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