return $XHTML?"\L<br\E$attr />":"\L<br\E$attr>" unless @_;
my($tag,$untag) = ("\L<br\E$attr>","\L</br>\E");
my @result = map { "$tag$_$untag" } 
    (ref($rest[0]) eq 'ARRAY') ? @{$rest[0]} : "@rest";
return "@result";

##</code><code>##

#!/usr/bin/perl -w
##################
use CGI qw/:standard/;

print "foo".br()."\n";

my $q = new CGI;
print "foo".$q->br()."\n";
__END__
foo<br />
Use of uninitialized value in join or string at (eval 2) line 15.
foo<br></br>