#!/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>