#!/usr/bin/perl
#  _   __  __  _           _____  _
# (_(_/ (_/ (_(_(_(_/_ o  (_)/ (_(_/_
#                .-/            .-/
#               (_/            (_/

my @array = (
    "HTML5", #"ProfServ", "Epic Fail"
);

&select_site(@array);