#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=\\;") or die $DBI::errstr;
my $select = q~SELECT min(Spalte1) FROM csvfile~;
my $sth = $dbh->prepare($select) or die $dbh->errstr();
$sth->execute() or die $dbh->errstr();

my ($min) = $sth->fetchrow_array();
print $min;