Why would you need to mount anything?? Why not just use Net::FTP and have it make the FTP connection from the Linux box to the Win2k box and transfer them. The script would look something like:

use Net::FTP;

# Put approrpriate parameters in here
my $ftp_conn = Net::FTP->new(...);

opendir DIR, "/Some/Dir/With/Files"
    || die "Cannot open directory: $!\n";
my @filenames = grep !/^\.\.?$/, readdir DIR;
closedir DIR;

foreach my $file (@filenames) {
    $ftp_conn->put($file);
}

$ftp_conn->close;
[download]

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.