elsif ($res =~ /PASS (.+)/)
{
    print $cc "230 User logged in\r\n";
}
[download]

Not the best password protection i've ever seen ;-)