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

##</code><code>##

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