my $login_text = $user_number?'logout':'login';

print<<"END_HTML";
<div>
  ...part of webpage...
<input type="button" name="log" value="$login_text" onClick="doSomething();">
  ...more of webpage...
</div>
END_HTML

##</code><code>##

if (isAdmin($user_number)) {
    print ...some extra content...
}

##</code><code>##

if (isAdmin($user_number)) {
    print "<table>\n";
    print "<tr>\n";
    print "<td class=\"someclass\" style=\"text-align:center\">Some Content</td>\n";
    print "</tr><tr>\n<td class=\"someClass\">Restricted</td>\n" if $user_number == 20;
    print "</tr>\n";
    print "</table>";
}

##</code><code>##

   print qq[<td class="someclass" style="text-align:center">Some Content</td>\n];
   print qq[</tr><tr>\n<td class="someClass">Restricted</td>\n] if $user_number == 20;

##</code><code>##

#!/usr/bin/perl
use strict;

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

print "Test\n\n";

sub indent {
    my $text = shift;
    $text =~ s/^\s+//gm;
    return $text;
}

if (1) {
	print indent(<<"END_TEXT");
	Here is
	some test text
	with plenty of space 
	at the start
END_TEXT
}

exit 0;