Select Code to Download

my $val = $obj->reader;
$obj->write( $newval);

#!/usr/bin/perl --

...
  }, "QuackLog"),
  "timestamp foo bar baz qux norf quack honk woof meow blerf",
)

#!/usr/bin/perl --

package QuackLog;
...
  }, "QuackLog"),
  "timestamp foo bar baz XXXXXX norf quack honk woof meow blerf",
)