Select Code to Download

$VAR1 = 'Comments';
$VAR2 = '';
...
.
.
.

Comments = '';
InstallAddID = '';

#!/usr/bin/perl
use strict;
...
my $po = $sth->fetchrow_hashref;
# corrected. thanks ikegami
print Dumper($po);