use strict;
use warnings;

my $infile = shift;

open(INIFILE, "$inifile");

while (<INIFILE>) {
      (my $server, my $dir, my $type) = split if !/^#/;
      print "$server $dir $type\n";
}

close(INIFILE);