foreach $one (@ARGV) {
    open(STDOUT, ">/dev/null");
    # Various expect statements that telnet to routers
    # listed in @ARGV and back up several files.
    close(STDOUT);

    # this is what I'd like to be printed to STDOUT.
    print "Done with backups for this machine.";
}