#header required to properly recieve text/html response
print "Content-type: text/html\n\n";

print '{"employees" : [' . "\n";

foreach my $employee(@employees) {
print '
   {
      "name" : "' . $employee->{name} . '",' . "\n" .
      '"company" : "' . $employee->{company} . '",' . "\n" .
      '"email" : "' . $employee->{email} . '",' . "\n" .
      '"website" : "' . $employee->{website} . '"'. "\n" .
  '},'
}

print ']}';