# 
# note - untested code.
#
my $filename = "myfile.txt";
open TEXT, "-|", "program textfile" || die("Cannot start program\n");
open OUT, ">", "$filename" || die("Cannot open output file.\n");
while(<TEXT>) {
    chomp;
    print OUT "Simon Says \"", $_, "\"\n";
} 
close(TEXT);
close(OUT);