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

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

exit;
[download]

databasename.tablename: Records: 1  Deleted: 0  Skipped: 0  Warnings: 
+0
[download]