#!/usr/bin/perl

#chdir '/spare';

opendir(IP, 'temp');
while ($ip = readdir(IP)) {
  next if $ip eq '.' or $ip eq '..';
  rename("temp/$ip", "ip2/$ip");
}