perl -MO=Deparse 1.pl
use warnings;
use strict;
find_symbol();
sub find_symbol {
    use warnings;
    use strict;
    'to'->got('today'->here(!1));
}
1.pl syntax OK