#!/usr/bin/perl

################
#              #
# Micro server #
#              #
################

# Get user input - note that we are not actually
# interested in what the request has to say,
# we are only going to serve it with one file anyway.

while (<>) {
  # remove line-ending characters
  chomp;
  $a = $_;
  # look out for the end of the request
  # aka... "talk to the hand cos the face ain't listening"
  if (length($a) < 2) {last}
};
# At last...
# Read the file - substitute your own here, it can be anywhere.
open(FILE, "</var/www/htdocs/ginty.html");
  $b = <FILE>;
close (FILE);
print STDOUT "$b";
exit(0);

