open INFILE for reading
open RESULTS for writing
foreach machine_name (in INFILE) {    # loop over lines in input file
    results = LoggedOnUsers(machine_name)
    print results to RESULTS 
}
close INFILE
close RESULTS

##</code><code>##

perldoc -f open
perldoc perlsyn          # For the "foreach" loop
perldoc Win32::NetAdmin
perldoc -f print
perldoc perlintro        # May be of use