Select Code to Download

#!/usr/bin/perl -w
use strict; # Always use strict;
...
{ 
    system ("find '/home/u1' -user $i -print > $i");
}