Help for this page
open FH, '>', $file or die "Can't open file $file: $!"; print FH $content; close FH;