#!/s/std/bin/perl

my $backuproot = "/acronis";
while (my $ipdir = readdir(EXISTINGIPS)) {
   next unless ($ipdir =~ m/^\d+\.\d+\.\d+\.\d+$/);
      # ignore the macs
#   next if ($ipdir =~ m/^128\.105\.139\.\d+$/);
print "IP is $ipdir\n");
}
