At a quick glance, without seeing the actual error messages you are getting, I would hazard a guess that you are attempting to connect to an FTP server on a Windows machine. In your line:

$ftp->put ($fname, $remote_directory) or die
    "OOPS! Can't send localfiles: $!\n";
[download]

try the following instead:

$ftp->cd ($remote_directory) or die "Cannot change to $remote_director
+y. $@";
$ftp->put ($fname) or die "OOPS! Can't send localfiles: $@";
[download]

In this code bit, your "cd" will likely fail because when you FTP you will typically be dropped into a login directory and will only be able to access that directory level and lower. I'm going to guess that 'd:\inetpub\ftproot' is the root level so when you log in, you would only see 'carquest.' You have a comment to "Change directories after login," but you never execute the 'cd' command. Also, the arguments for 'put' (and 'get' as well) should be filenames, not directories (from what I recall about Net::FTP and FTP in general).

Also, note $@ instead of $!. This can give a better description of the error, especially with Net::FTP.