Как создать базу mySQL из csv файла?

есть прайс в Exel, вида:
номер продукта, наименование, цена, остаток на складе

Все это дело можно превратить в csv файл подобный:

1234;Мыло пенное-обалденное;28.1;2
1235;Мыло непенное;24;1

Как это загнать в mySQL одним махом?.


#! /usr/bin/perl

use DBI;

$dbh = DBI -> connect(DBI:mysql:dbname="name","user","pass");

open (FILE, $file);
@data = <file>;
close (FILE);

for ( $i = 0; $i < @data; $i++ ) {
($id,$name,$price,$num) = split(/;/,$data[$i]);
$dbh -> do("INSERT INTO Table (id,name,price,num) VALUES ('$id','$name','$price','$num')");
}

$dbh -> disconnect;

print "Content-type:text/html\n\nDone!";

exit;

TopList Rambler's Top100