subroutine beenden mit exit(&subroutine);

[mark]

hallo,

ich habe im archiv gelesen, dass es ein unschöner programmierstil sei, wenn subroutinen mit exit beendet werden.

wäre es dann so richtig??

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n";

open(FH, ">a.txt") or exit(&test);
print FH "slf";
close(FH);

open(FH, "<b.txt") or exit(&test);
my $t = <FH>;
close(FH);

open(FH, ">c.txt") or exit(&test);
print FH $t;
close(FH);

print "OK";

sub test {
print "Sorry, leider ist ein Fehler aufgetreten";
}

ich wäre sehr dankbar für hilfreiche antworten.