#!/usr/local/bin/perl -w
   {
      use strict;
   
      my $global = 3; my %Hash = ();
      my $result = Get_Result();
      print "Result: $result\n";
      exit;      ## Optional, but I prefer to show exits.
   
      sub Get_Result
      {   return( $global * 10 );
      }
   
   }
   
   1;
   

##</code><code>##

Result: 30

##</code><code>##

my $Hash_result = Out_of_Scope( \%Hash);