Your open statement

open(MYFILE, '/tmp/data.txt');
[download]

is opening the file for reading only. (See open.) Try this:

open(MYFILE, '>', '/tmp/data.txt') || die("Cannot open /tmp/data.txt: 
+$!");
[download]