perl eval.

gistfile1.pl

#!/usr/env/perl                                                                                                                                                                              
use strict;                                                                                                                                                                                  
use warnings;                                                                                                                                                                                
use utf8;                                                                                                                                                                                    
                                                                                                                                                                                             
sub eval_func {                                                                                                                                                                              
     eval {                                                                                                                                                                            
        return 1;                                                                                                                                                                            
    };                                                                                                                                                                                       
    if ($@) {                                                                                                                                                                                
        return 0;                                                                                                                                                                            
    }                                                                                                                                                                                        
}                                                                                                                                                                                            
                                                                                                                                                                                             
my $res = eval_func;                                                                                                                                                                         
printf "%s\n", $res; # $res is blank!!!