use strict;
use Net::Mysql;
my $mysql = Net::MySQL->new(
		hostname => 'linuxserver',
		database => 'ADMIN',
		user => 'user',
		password => 'password'
);
$mysql->query(qq{LOAD DATA LOCAL INFILE 'C:\\1.csv' INTO TABLE `ADMIN`.`temp` FIELDS TERMINATED BY ',' LINES TERMINATED BY '\r\n' });
if ($mysql->is_error) {
	my $DBError = $mysql->get_error_message;
	print "MySQL Error : $DBError    \n";
}
$mysql->close;