--- imdb.pl.orig        2007-02-26 18:21:54.000000000 -0500
+++ imdb.pl     2002-01-04 22:55:44.000000000 -0500
@@ -131,12 +131,12 @@
    }

    # parse director
-   my $director = parseBetween($response, ">Directed by</h5>", "/a><br/>");
+   my $director = parseBetween($response, ">Director:</h5>", "/a><br/>");
    $director = parseBetween($director, "/\">", "<");

    # parse writer
    # (Note: this takes the 'first' writer, may want to include others)
-   my $data = parseBetween($response, ">Writing credits <a href=\"/wga\">(WGA)</a></h5>", "\n<br/>");
+   my $data = parseBetween($response, ">Writers:</h5>", "</div>");
    my $writer = join(",", ($data =~ m/$name_link_pat/g));

    # parse plot