Yes, exist! Use the module Safe.

Here's an example of how to do that: 

use Safe ;

  my $PACK = new Safe ;

  $PACK->deny(qw(
wantarray vec warn 
grepstart grepwhile mapstart mapwhile enteriter iter enterloop leavelo
+op unstack
last next redo goto
readline rcatline getc read formline enterwrite leavewrite
print sysread syswrite send recv
eof tell seek sysseek readdir telldir seekdir rewinddir
bless sprintf prtf crypt
tie untie dbmopen dbmclose
sselect select pipe_op sockpair
getppid getpgrp setpgrp getpriority setpriority localtime gmtime
rand srand atan2 sin cos exp log sqrt reset
chroot syscall dump exit die warn fork lock threadsv
  )) ;
  
  ## I use select to turn of output:
  my $sel = select(NULL) ;
  
  $PACK->reval(q`
  ## your code that need to be safe....
  `) ;
  
  ## select again the previous output:
  select($sel) ;

[download]
Note that I use this to get a HASH inside a .txt file, and avoid extra functions that doesn't represent the declaration of a HASH. Than you need to check $PACK->deny and see what operators you really want to avoid.

Graciliano M. P.
"The creativity is the expression of the liberty".

In reply to Re: Is there such a thing as safe eval? by gmpassos
in thread Is there such a thing as safe eval? by rzward

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.