#!/usr/bin/perl open FILE,">","test.log"; select FILE; print "hello\n"; print "world\n"; close(FILE);
