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