#! /usr/bin/perl open (FILEOUT,">newfile") || die "Can't open newfile: $!\n"; select(FILEOUT); open (DB, "<datebook") || die "Can't open datebook: $!\n"; while(<DB>) { print ; } select(STDOUT); print "Good-bye.\n";