if($action eq "add_data") {
        print "Your post was sucessful<br>";
        add_data($q, $numberoflines,$database);
} elsif ($action eq "preview") {
        preview($q, $numberoflines);
} else {
        print STDERR "Unrecognised action: [$action]\n";
}