Помогите избавиться от пустой строки в базе

Уважаемые господа! Помогите начинающим!

Не раз наверное писалось но не нашел ответа.
Во время выполнения скрипта бобавляется пустая строка в базу - помогите от нее избавиться пожалуйста.

сам скрипт ниже - над степенью кривизны не смеяться!!!
(потомучто сам писал - тем более два дня)

#!/usr/bin/perl -w
print "Content-type: text/html\n\n";

use DBI;
my $dbh = DBI->connect("DBI:mysql:monitoring:localhost","root","") or die "nicht eaiaeoa: $DBI::errstr\n";

while ($as=<txt/*>) {
$agency=~s#.*/##;
$agency=~s#.txt##;

open (FILEE,"$as");
foreach $line (<FILEE>){
chomp $line;
my $sth = $dbh->do("INSERT INTO weblinks(name,link) VALUES ('$name','$link')");
($name,$link)= split (/;/,$line);
print "$name = $link<br>";
}
}
my $dbh->disconnect();