#!/usr/bin/perl -w

my $tecaj = 'f181005.dat';

use DBI;
my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
$dbh->func(
	'tecaj',
	'Fixed', $tecaj, 
	{pattern=>'A3 A3 A3 A15 A15 A15'}, 
	'ad_import'
);

$dbh->{Active} = 0;
$dbh->disconnect;
