our @cache;
my $id = 0;
sub uneval {
    $cache[$id++] = $_[0];
    return __PACKAGE__ . '::$cache[' . $id . ']';
}