SELECT * FROM perfmon WHERE Event_ID >= 7034 AND Event_ID <= 7037

##</code><code>##

use strict;
use DBI;

my $query_string = "SELECT * FROM perfmon WHERE Event_ID >= 7034 and Event_ID <= 7037"; 
my $csv_file_name = "perfdata.csv";
my $csv_dbh;
my $stmt_handle;

$csv_dbh =
    DBI->connect( "DBI:CSV:", undef, undef,
                  {
                      csv_eol => "\n",
                      csv_quote_char => "'",
                      csv_tables => { perfmon => { file => $csv_file_name }},
                      RaiseError => 1,
                  }
    ) or die $!;

$stmt_handle = $csv_dbh -> prepare( $query_string );
$stmt_handle -> execute();

while ( my @row = $stmt_handle->fetchrow_array() ) {
    my $rowstr = join(";", @row);
    print $rowstr,"\n";
}
$stmt_handle -> finish();
$csv_dbh -> disconnect();