Select Code to Download

...
sub ObjectToString {
...
package Baz;
sub toString = ObjectToString("Baz");
...

my ($foo, $bar, $baz);

...
# do stuff with bar...
print $bar->toString();
...