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.

Reply via email to