File Perl

  1. Home
  2. Perl
  3. File
  4. The select Function
#! /usr/bin/perl
open (FILEOUT,">newfile")  || die "Can't open newfile: $!\n";
select(FILEOUT);      
open (DB, "while() {
   print ;            
}
select(STDOUT);       
print "Good-bye.\n";