Select Code to Download

#!/usr/bin/perl
#
...
tie(*$out, 'Hahandle', $out);
$out->write("(1) bong!\n");
&$wr($out, "(2) bong!\n");

(0) bong!
(1 1) bong bong!
(2 2) bong bong!