$ perl -c -e 'BEGIN { print "$^C\n" }'
1
-e syntax OK
$ perl -e 'BEGIN { print "$^C\n" }'
0
$