Help for this page
#!/usr/bin/perl -w ... $sth->finish(); $dbh->disconnect(); close $FH;
while (<$FH>) { ... $row[1] =~ s/^ //g; $sth->execute (@row); }