while (<DATA>)
    {
    print $_;
    }

__DATA__
Hello world

##</code><code>##

my @emoticons = (':P', '*tongue*');

##</code><code>##

open outFile, ">", "test.txt";
print outFile <<END;
This is test data for reading by the example code.
END
close outFile;