Select Code to Download

#! /usr/bin/perl
print"Content-Type:text/html\n\n";
...
#more part of program
#checking password
if ($FORM{'password'}=~ /^\w+$/){sucess();}else{error();}

if (ypcat passwd |grep $FORM('username'}){check();}else {error();}