How Script to write in a file?

#!/usr/local/bin/perl
open (MYPIPE, "cat >hello");
print MYPIPE ("Hi, Dave! Your QTP program sent this!\n");


close (MYPIPE);