#!/usr/bin/perl

open(LIST, "list");

foreach(<LIST>){
    chomp $_;
    print("Moving $_\n");
    `mkdir /usr/local/lib/httpd/htdocs/museum/96/$_`;
    `cp -r $_/* /usr/local/lib/httpd/htdocs/museum/96/$_`;
    print("Deleting $_\n");
    `rm -rf $_`;
}

close(LIST);