I would suggest that you check out the module from CPAN called Net::SCP. It should be able to do what you are looking to do.

With regard to getting the password into the script. This isn't secure practice. A slightly more secure practice would be to generate a pwless ssh key and use that key to connect to the server.

use Net::SCP qw(scp);
my ($host, $username) = ("example.com", "eric");
$scp = Net::SCP->new( { "host"=>$hostname, "user"=>$username } );
for my $file (@files) {
  $scp->put($file) or warn $scp->{errstr};
}
[download]

However, if you are really intent on hard-coding the password into the server, then consider using Net::SSH2. It allows all the different types of authentication.

use Net::SSH2;
my $ssh2 = Net::SSH2->new();
$ssh2->connect('example.com') or die ("SSH2 Connect Error: $!");
if ($ssh2->auth_keyboard('password')) {
  for my $file (@files) { scp_put($file); }
}
[download]

Note: All the code is untested.