eval 'print "$gr' . 'eet\n";';