I'm trying to insert data into mysql database using perl without succes.

i get the following error :

Name "main::DATA" used only once: possible typo at write.pl line 10. readline() on unopened filehandle DATA at write.pl line 10.

my script:

 
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $dbh=DBI->connect('DBI:mysql:database=test;host=
localhost','root','mypassword',{RaiseError =>1,AutoCommit=>1},);      
+       

my $sql='INSERT INTO foo(Item1,Item2)VALUES(wahed,jouj)';
my $sth=$dbh->prepare($sql);
while(<DATA>){
chomp;
my @vals=split /\s+/, $_;
$sth->execute(@vals);
}
[download]