package MyPrint;

sub print {
   shift;
   CORE::print("[\n");
   CORE::print(@_);
   CORE::print("]\n");
}

package main;

bless *STDOUT{IO}, 'MyPrint';
print("Hello World!\n");            # builtin
print STDOUT ("Hello World!\n");    # builtin