Select Code to Download

#!/usr/bin/perl -w
open PASSWD, '/etc/passwd';
...
foreach $i (@newarray) {
 system ("find '/home/u1' -user $i -print > $i");
}

my ($user,$uid) = (split(/:/))[0,2];