$host = "ftp://ftp.wwpdb.org/pub/pdb/data/structures/all/pdb/";
$f = Net::FTP->new("$host", Debug => 0) or die "Cannot connect $@";
$f->get($host/$pdb_download);
open ($pdb, ">$pdb.pdb");
print $pdb $f->content();