Select Code to Download

gonzo:: more foo.pl
#!/usr/local/bin/perl
...
gonzo:: perl -c foo.pl 
syntax error at foo.pl line 4, near "$columnname;"
foo.pl had compilation errors.

my $columnname = 'id';
print $rowobj->{$columnname};