If you prototype them with sub my_open (*$) I think it should work the way you want.

Close...

$ perl -le 'print prototype("CORE::open")'
*;$@
[download]

-sauoq
"My two cents aren't worth a dime.";