Is this possible to override print() ?

package OverridePrint;

use strict;



# WHAT CAN I DO HERE ???

1;

# Main Program

print "Goodbye World" ; # I got "GBK : Goodbye World"

$mode = "BIG5" ;
print "Hello World" ; # I got "BIG5 : Hello World"

I don't want to write another sub like Print ( $case, $mesg ) , but directly
override the print behavior.

In the real story, the structure is more complex. Default will print in
English, with user request ( argv ),
will print in BIG5 CHinese, and with Browser detection, will translate to
GBK.