Select Code to Download

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

__DATA__
Hello world

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

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