(Perl) удаление из файла

Разобралась со всеми переменными, все работает директории все прописаны, а данные из файла не удаляет помогите пожалуйста. Вот код для удаления:

$dbh = DBI->connect("DBI:CSV:f_dir=$Root/data") or die "Cannot connect: " . $DBI::errstr;
$sth = $dbh->prepare("DELETE * FROM document WHERE NUM='$d'") or die "Cannot prepare: " . $dbh->errstr();
$sth->execute() or die "Cannot execute: " . $sth->errstr();

А вот сам полный код программы:

Anna85

а данные из файла не удаляет помогите пожалуйста

Такого не бывает... если что-то происходит не так, выдается ошибка ...

Вот самый простой пример:

#!c:/perl/bin/perl
#!/usr/bin/perl             

use CGI;
use DBI;            

$Query = new CGI;
$syslog="c:/www/data/people";
$Query->charset('koi8-r');
print $Query->header;

$dbh = DBI->connect("DBI:CSV:f_dir=c:/www/data") or die "Cannot connect: " . $DBI::errstr;
$sth = $dbh->prepare("DELETE * FROM document") or die "Cannot prepare: " . $dbh->errstr();
$sth->execute() or die "Cannot execute: " . $sth->errstr();

Такая маленькая программка, заходишь на этот файл пустой листок, обновляешь и ничего не происходит, в смысле из файла ничего не удаляет

идите и учите SQL, раз Вы игнорируете мои вопросы, отвечать более не буду ...

Спасибо все заработало, нужно было просто звездочку удалить