#!/usr/bin/perl

use Hosting::Server;
use warnings;

my $myserv = new Server;

##</code><code>##

package Hosting::Server;
use strict;
use Switch;

sub new {
        my $class = shift;
        my $self  = {
                "Name"          => "Not Set",
                "IP"            => "Not Set",
                "OS"            => "Not Set",
                "Location"      => "Not Set"
        };


        return bless $self, $class;
}