#!/usr/bin/perl -w
use strict;
use diagnostics;
#use Data::Dumper;

my $config="/var/www/cgi-bin/prt.cfg";
open (CFGFILE,$config) || die "unable to open $config: $!\n";
my ($machine, $default, $type, $connect);
my (@server,@arrayref);
while (my @X=<CFGFILE>)
{
  foreach $_(@X)
  {
   next unless /^\w/i;
   push (@server, $_);
   ($machine, $default, $type, $connect)=split(/,/,$_);
   print "$machine, $default, $type, $connect";
  }
}