print "Now in mainline code at line 153\n";
# and tie default filehandles
tie(*STDOUT, "Amazon::DistributionCenter::SJISTermFilter", *STDOUT);
print "Now in mainline code after tie of STDOUT\n";
tie(*STDERR, "Amazon::DistributionCenter::SJISTermFilter", *STDERR);
print "Now in mainline code after tie of STDERR\n";
tie(*STDIN,  "Amazon::DistributionCenter::SJISTermFilter", *STDIN) if ($ENV{ENABLE_SJISTERMFILTER_INPUT});
print "Now in mainline code after tie of STDIN\n";
tie(*ARGV,   "Amazon::DistributionCenter::SJISTermFilter", *ARGV)  if ($ENV{ENABLE_SJISTERMFILTER_INPUT});
print "Now in mainline code after tie of ARGV\n";