#!/usr/bin/perl print("Testing server\n");