ken@ganymede: ~/tmp
$ rm fred
ken@ganymede: ~/tmp
$ perl -Mstrict -Mwarnings -E 'qx{cat <<EOT >fred
> hello
> EOT
> };'
ken@ganymede: ~/tmp
$ cat fred
hello
ken@ganymede: ~/tmp
$