#!/usr/bin/perl -w
use strict;
use DBI;
my $pattern = {pattern=>'A6 A9 A8 A5 A3'}; # widths of cols
my $dbh=DBI->connect('dbi:AnyData(RaiseError=1):');
$dbh->ad_catalog('T1','CSV','yourfile.csv');
$dbh->ad_catalog('T2','Fixed','yourfile.fix',$pattern);
$dbh->do("CREATE TABLE T2 AS SELECT * FROM T1");
__END__