sub get_script_dir
{
   #Get the calling script's path
   my $sc_path = (caller)[1];
   
   #Parse the (possibly relative) directory out of the filename
   $sc_path =~ m/^(.*[\/\\]+)[^\/\\]*$/;
   $sc_path = $1 || ".";
   
   #Append a trailing slash if there isn't one, for consistency
   $sc_path .= "/" unless m/[\/\\]$/;
    
   return $sc_path;
}