TMP="/tmp/cas.$$.out"
to:
$tmp = "/tmp/cas.$$.out"