Help for this page

Select Code to Download


  1. or download this
    my $t;
    sub show { print eval "\$$_" for @_; }
    sub init { $t = 'test'; show(qw( t )); }
    
    => nothing
    
  2. or download this
    my $t;
    sub show { print $t; print eval "\$$_" for @_; }
    sub init { $t = 'test'; show(qw( t )); }
    
    => testtest