Select Code to Download

$address{'example'} = "ftp.foobar.com";
$userpwd{'example'} = "    user foo bar\n";

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