#! /usr/bin/perl -l
use strict;
use warnings;

use DBI;
my $file = 'f1';

my $dbh = DBI->connect("dbi:CSV:csv_eol=\n;csv_sep_char=|");
$dbh->{csv_tables}->{FOO}{file} = $file;
$dbh->{csv_tables}->{FOO}{col_names} = [ qw/date id unk1 price unk2 quantity/ ];

my $r = $dbh->selectall_arrayref('SELECT * FROM FOO ORDER BY ID');

use Data::Dumper; print Dumper $r;