# Created: 20000309
#
-#use strict;
-use vars qw(%ftp);
+use strict;
+
+use vars qw(%ftp %param);
# Usage: &ftpGet($host,$dir,$file,[$lfile]);
sub ftpGet {
### LWP.
# Usage: &getURL($url, [$post]);
+# todo: rename this to getHTTP
sub getURL {
my ($url,$post) = @_;
my ($ua,$res,$req);