$VAR1 = 'Comments';
$VAR2 = '';
$VAR3 = 'InstallAddID';
$VAR4 = '';
.
.
.

##</code><code>##

Comments = '';
InstallAddID = '';

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use DBI;

my $dbargs = {AutoCommit => 0,PrintError => 1};
my $dbc = DBI->connect("dbi:SQLite:dbname=da_hrb.db","","",$dbargs);

# get the default po
my $sth = $dbc->prepare('select * from der_po where poid = 0');
$sth->execute;
my $po = $sth->fetchrow_hashref;
# corrected. thanks ikegami
print Dumper($po);