#!/usr/bin/perl5 -w
$file = "open.out";
open (FILE, ">$file") || die "Can't write to $file:  eror $!\n";
print FILE "This is the first line of $file.\n";