IF eller ej ?

if (!$cryptword) {print "<INPUT TYPE=HIDDEN NAME=admincheck VALUE=1>\n";
print "<A "http://www.test.dk"></A>";
}

skulle gøre tricket :)

Du kan også godt bruge not, der skal bare en parantes mere, såden her:
if (not($cryptword))

Der er mange notationer, der virker.  Personligt kan jeg bedst lide at lave en mellemregning, da det er mere fejlsikkert, og lettere læses af andre programmører, fordi man kan navngive mellemresultatet.

Når du skal printe flere linier, bør du også bruge << notationen.

MVH Uffe.

my $adminval = '0';
$adminflag = '1' if $cryptword;
print << EOF;
    <INPUT TYPE=HIDDEN NAME=admincheck VALUE="$adminflag"/>
    <A "http://www.test.dk">test</A>
EOF

*** eller ***

unless ($cryptword) {
    print "<INPUT TYPE=HIDDEN NAME=admincheck VALUE=1>\n";
    print "<A "http://www.test.dk"></A>";
}

*** eller ***

if ($cryptword) {
    print "<INPUT TYPE=HIDDEN NAME=admincheck VALUE=1>\n";
    print "<A "http://www.test.dk"></A>";
} else {
    print "<INPUT TYPE=HIDDEN NAME=admincheck VALUE=0>\n";
    print "<A "http://www.test.dk"></A>";
}

Tak alle for svar, alle løsninger virker men jeg kan desværre kun give uffehellum point da i andre kun har kommenterer spørgsmålet.