#!/usr/bin/perl

print "Content-Type: Text/HTML\n\n";

use CGI ':standard';
use Vpanel 1.00;
require $header;
require $accountinfo;

$dedicated_status = is_server_dedicated();

print "\n\nIs this server dedicated? - $dedicated_status\n\n";