< my $content = get($url3); --- > my $content = get($url3) or die "$url3: get failed"; 32c32,34 < my $content = get("http://www.ebi.ac.uk$param"); --- > print "processing param: \"$param\"\n"; > my $url = "http://www.ebi.ac.uk$param"; > my $content = get($url) or die "$url: get failed"; 42a45 > print "anchor: " . $anchor0->as_HTML() . "\n"; 43a47,48 > next unless($href0); > print "found href: $href0\n"; 45c50,51 < if ( $href0 =~ /ligplot\d\d_\d\d'/ ) { --- > if ( $href0 =~ /(ligplot\d\d_\d\d)/ ) { > my $id = $1; 49,51c55,59 < $content = get("http://www.ebi.ac.uk$param0"); < my $content = shift; < print my $param0; --- > my $url = "http://www.ebi.ac.uk$param0"; > print "getting $url\n"; > $content = get($url) or die "$url: get failed"; > # my $content = shift; > # print my $param0; 53a62 > my $pdb = 'testpdb'; 55c64 < ( [ "http://www.ebi.ac.uk$param0", "$pdb.$param0.pl" ], ); --- > ( [ "http://www.ebi.ac.uk$param0", "$pdb.$id.ps" ], ); 56a66 > print "mirror $duplet->[0] to $duplet->[1]\n";