Select Code to Download

$field1 = $row->{field1}; $field2 = $row->{field2}; $field3 = $row->{f
+ield3};
print "Row id is $field1, field 2 is $field2, field 3 is $field3\n";

print sprintf "Row id is %s, field 2 is %s, field 3 is %s\n", @{$row}{
+qw/field1 field2 field3/};