Detected 1 occurrence(s) of ‘\s*pass[word]+\s*[:=]\s*["'][a-z0-9\-_\!\$]+["']‘: file($filename) or warn "Cannot upload ($filename)", $ftp->message; $ftp->quit(); }; } else { warn "Cannot connect to $FTPSERVER: $@"; } } use strict; use warnings; my $USERNAME = 'myname@gmail.com'; ## notice the single quotes my $PASSWORD = 'mypass'; @send = Net::FTP::Simple->send_files({ username => $user, password => $pass, server => $host, remote_dir […]
↧