perl link checking

I wrote this simple script to check links, but no matter what the url, it always returns a working link:

<BLOCKQUOTE><font size="1" face="Verdana,Arial,Helvetica">code:</font><HR><pre>
#!/usr/bin/perl

use LWP::Simple;

$url = "http://www.thisdoesnotworkcrap.com";

if (head($url)) {
print "Content-type: text/htmlnn";
print "working link<br>$url";
} else {
print "Content-type: text/htmlnn";
print "broken link<br>$url";
}
[/code]

Can anyone help?

Ryan

Actually, that does work. LWP was just installed wrong!