- or download this
my $login_text = $user_number?'logout':'login';
...
...more of webpage...
</div>
END_HTML
- or download this
if (isAdmin($user_number)) {
print ...some extra content...
}
- or download this
if (isAdmin($user_number)) {
print "<table>\n";
...
print "</tr>\n";
print "</table>";
}
- or download this
print qq[<td class="someclass" style="text-align:center">Some Conte
+nt</td>\n];
print qq[</tr><tr>\n<td class="someClass">Restricted</td>\n] if $us
+er_number == 20;
- or download this
#!/usr/bin/perl
use strict;
...
}
exit 0;