Select Code to Download

  for my $attr( @{ $printer->attrs() } ) {
    print $printer->$attr();
  }

my $want = [
   { printer1 => Printer::Status::Acme::x1000->new( qw[serial_number b
+ios_revision] ) },
...
my %result = Printer::Status->as_hash($want);
# or
my @result = Printer::Status->as_array($want);