use strict;
use CGI qw(:standard);

my ($oracle,@oraarray,@rbarray,$rbport,$host,@host,$kjarnavelar, $i, $start, $rbports, $oraports, $rbarray, $oraarray);