#!/usr/bin/perl -a

##</code><code>##

#!/usr/bin/perl

##</code><code>##

Premature end of script headers

##</code><code>##

open(FILE,">/path/to/file") or die "could not open file: $!";
print FILE qq~Hello this is just a test to see if it works.~;
close(FILE);