Select Code to Download

use strict;
use warnings;
...
    }

}

< my $content = get($url3);
---
...
>                   ( [ "http://www.ebi.ac.uk$param0", "$pdb.$id.ps" ]
+, );
56a66
>                     print "mirror $duplet->[0] to $duplet->[1]\n";