#! /usr/bin/perl
use strict;
use warnings;

my @SERVERS = ('server','server2','server3');
my $path = "/home/backup/nightly";

foreach my $this_server ( @SERVERS ) {
	#`if $this_server eq 0 then touch $this_server`;
 `chmod 775 *`;
 `cp $path/$this_server/etc_passwd ./passwds.$this_server`;
 `chmod 775 *`;
 
}