# Format: open(FILEHANDLE, ">FILENAME)"; #!/usr/bin/perl $file="data.txt"; open(HANDOUT, ">$file") || die "Can't open newfile: $!\n"; print HANDOUT "hello world.\n"; print HANDOUT "hello world again.\n";