Select Code to Download

@users = qw(fred wilma barney); #watch these users
foreach $user (@users) {
...
        print LOG $_;
    }
}

open(LOG, ">>/tmp/$user.logfile");
open(STDIN, ">&LOG");