print $line;

##</code><code>##

foreach $attribute ($line->attributes()) { 
     foreach $value ($line->$attribute()) {
         printf "%s:    %-s\n", $attribute, $value;
     }
 }