for my $net ( @nets ){
  my $x = 0;
  my $y = 0;

  open(FILE, ">".$mapdir.$net.".cfg") or die $!;
  print FILE qq~define global {
usegdlibs=1
allowed_user=nagios
allowed_for_config=nagios
iconset=std_medium
map_image=grey.png
}
~;