#!/usr/bin/perl

open(LIST, "list");

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

close(LIST);