
# $message contains the raw message
$message =~ s/\'/\'\\\'\'/g;

print <<"EOI"
# ...
$cvs ci -m '$message'
EOI
