if(param()) {

        if(param('addserver')) {

                my $s = param('server');
                my $p = param('port');
                my $i = param('id');

                my @command = ("/usr/local/www/radio/perl/addrelay.sh", "$s", "$p", "random", "$i");
                my $err = system(@command) || die "Error exec: $!"; 
                ### HERE IT SPITS OUT  Bad file Descriptor EVEN THOU THE SCRIPT DOES WHAT IT IS SUPPOSED TO

                print "\n$err\n";
                print $!;
                #print param('server') . "<br>";
                #print param('port') . "<br>";
                #print param('id'). "<br>";
        }

        if(param('remserver')) {
                print param('remserver'). "<br>";
        }

}