$ftpcmd = "ftp -n " . $address{$myadd};
$ftpstr = $userpwd{$myadd};
open(TST,"|$ftpcmd");
print TST $ftpstr;
print TST "   prompt\n";
print TST "   mget *\n";
close(TST);