sub html_admin { my($user_number)=@_; my $HTML_restricted = ""; $HTML_restricted = <<"__HTML__" if $user_number == 20; Restricted __HTML__ return << "__HTML__"; $HTML_restricted
Some Content
__HTML__ }