if ($res->is_success) {
           my $headers = $res->headers;
           return $headers;
        }else{
           $flag = 1;
           $error .= "Error retrieving file information at $url ";
        }
        return 0;

##</code><code>##

        return $res->headers    if $res->is_success;

        $flag   = 1;
        $error .= "Error ...";
        return 0;

##</code><code>##

   if(exists($extens{$ext})){

##</code><code>##

   next unless exists $extens{$ext};

##</code><code>##

   #if($newurl !~ /http::\/\/$/ig){
    if($newurl !~ m#http:://$#i){

##</code><code>##

print"\n\n\n$filename at $newurl\n";
print "File size: ".$header->content_length." bytes\n" unless $flag==1;
print "Last modified: ".localtime($header->last_modified)."\n" unless $flag==1;

##</code><code>##

print "\n\n\n$filename at $newurl\n",
printf("File size: %d bytes\nLast modified: %s\n", $header->content_length, localtime($header->last_modified)) unless $flag == 1;

##</code><code>##

   #print"\nExtensions to download (seperated by comma's): ";
    print"\nExtensions to download (separated by commas): ";