Select Code to Download

#!/usr/bin/perl 

use strict;
...

my $string = $obj->as_string;
print $string, "\n";