File Perl

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