Select Code to Download

    package MySTDOUT;
    use Tie::Handle;
...

    package main;
    tie *STDOUT, 'MySTDOUT';

    package MySTDOUT;
    use Tie::Handle;
...
    tie *STDOUT, 'MySTDOUT';

    print "Foo";

    main: Foo