no strict 'refs';
$s->();
use strict;

##</code><code>##

$s = "print(); unlink '/etc/passwd'; s";