$ perl -MO=Deparse -ce 'BEGIN {print `date`}'
Sat Feb  6 11:58:31 MST 2016
sub BEGIN {
    print `date`;
}
-e syntax OK