$ rm dummy
$ perl shell-test.pl
touch: Illegal seek at shell-test.pl line 6.
$ touch dummy
$ perl shell-test.pl
touch: Illegal seek at shell-test.pl line 6.