Select Code to Download

Select or download this

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

Select or download this

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

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

Select or download this
```
   if(exists($extens{$ext})){
```
Select or download this
```
   next unless exists $extens{$ext};
```

Select or download this

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

Select or download this

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;

Select or download this

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

Select or download this

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