# 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";