my $req = HTTP::Request->new(HEAD => $url);
my $resp = $ua->request($req);
my $type = $resp->header('Content-Type');
my $content = $resp->content;
my $content_len = $resp->header('Content-Length');
####
my $req = HTTP::Request->new(GET => $url);
my $content = $resp->content;
my $content_len = length($content);
##
##
my $req = HTTP::Request->new(HEAD => $pl_url);
my $resp = $ua->request($req);
my $type = $resp->header('Content-Type');
my $status_line = $resp->status_line;
my ($content, $content_len);
if ($resp->header('Content-Length')) {
$content_len = $resp->header('Content-Length');
} else {
$req = HTTP::Request->new(GET => $pl_url);
$resp = $ua->request($req);
$content = $resp->content;
$content_len = length($content);
}