my $code = 'print qq{Hello world!\n};';
eval $code;