Help for this page
$ perl -Mstrict -Mwarnings -E ' use constant { ... OK Sent mail (221 2.0.0 Service closing transmission channel) 2
... use constant { ... ... # do something with $date and @info here }