The below CGI script prompts user for a name and generates a random fortune.
The below CGI script the Perl5 DBI/DBD-Oracle modules along with the CGI::* modules to drill down on the SCOTT tables.