perl writetorenamed.pl

Printed: 1.
Printed: 2.
Permission denied at writetorenamed.pl line 13.
Printed: 3.
Printed: 4.
Printed: 5.
Printed: 6.
Printed: 7.
Printed: 8.
Printed: 9.
Printed: 10.

cat 1

1
2
3
4
5
6
7
8
9
10