#!perl

   use constant LOG_DIRECTORY => '/foo/bar/baz';
   use constant SOME_URL => 'http://baboon.com';

   main();

   sub main {
     ....
     some_random_function( LOG_DIRECTORY, $local_variable );
   }