{
    use feature qw(say);
    say $var;
}
print "Cannot use say here\n";