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.