use strict;

my $dbh = DBI->connect('dbi:...', 'user', 'pwd');
foreach my $file (@ARGV) {
    open(IN, $file) || die "Can't open $file: $!";
    my $sql = join(' ', <IN>);
    close(IN);
    my $sth = $dbh->prepare($sql);
    $sth->execute() || die $sth->errstr;
    # Maybe you need to fetch rows here?
    while(my $d = $sth->fetch) {
        print "@$d\n";
    }
}