#!/usr/bin/perl -w
use strict;

my $command = qq(mysqlimport -u $username -p$password -L $database $infile);
system($command) == 0 or die qq(system $command failed: $?);

exit;

##</code><code>##

databasename.tablename: Records: 1  Deleted: 0  Skipped: 0  Warnings: 0