#! /usr/bin/perl -w

print "Status: 200 OK\nContent-type: text/plain\n\n";

use CGI;

$cgi = new CGI;

open DICT, "</usr/share/dict/words" or die("Failed to open file! :(");

while($line = <DICT>) {
    if($line =~ m/[aeiouy]{2,}/i) {
        print $line;
    }
}