#!/usr/bin/perl



#print "mkdir ".$location."/".$date."\n";
#system("mkdir ".$location."/".$date."\n");


while($line = <STDIN>) {
  chomp($line);



#print "cp db.poww.com db." . $line . "\n";

  #print "cp ".$line ." ".$location."/".$date."\n";
#system("removeme apache_log.1 ".$line. " \n");
#  system("cp ".$line ." ".$location."/".$date."\n");
#print("cd /home/".$line."/www\n");
#print("ln -s /var/log/httpd/".$line." stats\n");



# Domain List Addition to body checks

#$line =~ s|\.|\\.|;
print "-rm -rf ".$line."-\n";
#system( "rm -rf \"".$line."\"\n");

}
exit;


__END__


 if(-e "/path/to/file.txt") { true } else { false }
if(!(-e "/path/to/file.txt")) { does not exists; }