# Connect to the database, (the directory containing our csv file(s))
my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_eol=\n;");

# Associate our csv disk file with the table name 'results'
$dbh->{'csv_tables'}->{'info'} = { 'file' => "psinfooutputfile.csv"};
$dbh->{'csv_tables'}->{'hosts'} = { 'file' => "netbiosoutputfile.csv"};

######
my @row = $dbh->selectall_arrayref("SELECT * FROM hosts, info WHERE hosts.IP = info.IP");
print Dumper @row;

##</code><code>##

$VAR1 = [
          [
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10',
            '10.160.0.10'
          ],

##</code><code>##

# Connect to the database, (the directory containing our csv file(s))
my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_eol=\n;");

# Associate our csv disk file with the table name 'results'
$dbh->{'csv_tables'}->{'info'} = { 'file' => "psinfooutputfile.csv"};
$dbh->{'csv_tables'}->{'hosts'} = { 'file' => "netbiosoutputfile.csv"};

######
my @row = $dbh->selectall_arrayref("SELECT IP, Domain, ServerName, DaysUptime, OS, RAM, OSSP, InstallDate, CPUSpeed, CPUCount, CPUType FROM hosts, info WHERE hosts.IP = info.IP");
print Dumper @row;

##</code><code>##

$VAR1 = [
          [
            '10.160.0.10',
            '0',
            '',
            '19',
            'Microsoft_Windows_2000_Server_Domain_Controller',
            '1024',
            '4',
            '12_2_2003',
            '995',
            '1',
            'Intel_Pentium_III'
          ],
]