my $SQL= "INSERT INTO DIRECTORY_LIST(FILENAME) VALUES ('$filename')";
my $sth= $dbh->prepare($SQL) or die "Prepare".$dbh->errstr;
opendir my $dh, $dir or die "Could not open '$dir' for reading: $!\n";
$sth-> execute() or die "".$dbh->errstr;
while (my $row = readdir $dh)
{
if ($filename eq '.' or $filename eq '..'){
next;
my ($filename)=($row->[0]);
    }
    print "$filename\n";
}
print "\n";
closedir $dh;
$dbh->disconnect;