Name "main::send_date" used only once: possible typo at ...

##</code><code>##

print "\nSEND( TYPE q or Q to Quit):";

##</code><code>##

perl -c script_name