$ perl /tmp/foo