package HTML; $SIG{__WARN__} = sub { if ($_[0] =~ /readline\(\) on unopened filehandle (\S+)/) { print "<$1>"; } elsif ($_[0] !~ /only once/) { warn @_ } }; sub import { my $pkg = caller; *{ $pkg . "::glob" } = \&tag; } sub tag { my $tag = shift; $tag =~ s/\s+$//; wantarray ? "<$tag>" : print "<$tag>"; } 1; __END__ #!/usr/bin/perl -w use HTML; print , , , "This is vile", , , , , "japhy", , " is insane.", , , ;