my $errorlog='';
if (...) {
    $errorlog.="Oops\n";
}
if (...) {
    $errorlog.="Oh noes\n";
}
foo(...);
if (...) {
    $errorlog.="Outch\n";
}
if ($errorlog ne '') {
   print STDERR $errorlog;
} else {
    say 'All done, bye.';
}