Or, if you want to attempt to put/get all of your files - store the errors in a scalar or array and die/log them after looping through @files:

my @errors = ();
foreach my $file (@files)
{
    # Or get...
    $ftp->put($file) or push (@errors, ("Error putting $file: " . $ftp
+->message));
}
die (join "\n", @errors);
[download]