This is the conection part of the code:

require LWP::UserAgent;
use HTTP::Request::Common;
use Digest::MD5;

$ua = LWP::UserAgent->new;
$ua->credentials("url.com", "Datafeeds", $user, $password);

# URL where to download the database and its updates
$url      = "http://url/moreurl/$user/vuldb/";

 
sub check_files {
  stat("vdb-dump");
  die "No database dump found.\n" if !-d _;
}
[download]

I keep getting the error " cannot dowload: 401 Authorization Required"