use LWP::Simple;$_=get"http://imdb.com/Find?for=$ARGV[0
]&select=All";$_=get"http://imdb.com/Title?$1"if m!LI><
A\sHREF="/Title\?(\d+)">.+?</A>!ix;m!<BASE\sHREF="http:
//.+?/Title\?(\d+)">!i;($t)=/<TITLE>(.+?)<\/TITLE/ix;($
r)=m!<B>([\d\.]+)</B>/\d+!i;$r||='?';print"$t: $r/10\n"