{ # Start of naked block.

 my $ref;
 {
   my $num = 20;
   $ref = \$num;
 }
} #End of naked block.