$ perl -we'sub TIEHANDLE {bless []} sub PRINT { &PRINT(@_) } tie *FOO, "main"; print FOO "Bar"'