little problems with MPUT (ftp & perl script)

use Net::FTP;
    
        $ftp = Net::FTP->new("ftp.myserver.com");
        $ftp->login("uesername","pass");
        $ftp->cwd("/var/www/html/data/uploads/");
       
        
sub mput { my($ftp,$pattern) = @_; 
foreach my $upload (glob($pattern)) { $ftp->put($upload) or warn $ftp->message; } } 

&mput("c:\\temp\\*.csv");

$ftp->quit;

 for (glob("c:\\temp\\*.csv")) {
$ftp->put($_);
}

use strict;
use warnings;
use Net::FTP;

my $host = "666.666.666.666";
my $user = "foo";
my $pw   = "bar";
my $path = "outgoing/foobar";

if ( my $ftp = Net::FTP->new($host) ) {
        print "Logging in to '$host' as user '$user'.\n";
        $ftp->login($user,$pw) or die "Could not login";
        $ftp->pasv();
        print "Changing directory to '$path'\n";
        $ftp->cwd($path) or die "could not cwd $path";
        $ftp->ascii;
        my @files = $ftp->ls;
        print "Found these files: \n\t" . 
                join( "\n\t", @files ) . 
                ".\n";
        foreach my $file (@files) {
                if ( $file =~ /.*progress|monitor|gui|station.*txt/ ) {
                        print "Downloading file: $file.\n";
                        $ftp->get($file) or print "Oops! Could not get $file\n";
                }
        }

        $ftp->close(); }

else { print "Could not connect.\n"; }

print "All done.\n";