If possible I would like to use variable that is accessible bye ref_test2 without passing in as argument.

sub ref_test1
{
    local our $type="connect";
    print "Here in ref_test1.\n";
    ref_test2();
}

sub ref_test2
{
    our $type;
    print "Type: $type\n";
    print "Here in ref_test2\n";
}
[download]

If possible I would like to use variable that is accessible bye ref_test2 without passing in as argument.

So you mean you want to share a variable between functions? The solution here is to use a lexical within a closure:

{ # closure starts here
  my $shared_variable;
  sub ref_test1 { ... }
  sub ref_test2 { ... }
}
[download]

-- 
Ronald Fischer <ynnor@mm.st>

Generally, when people speak of a 'closure' in Perl, people mean a specific kind of subroutine, not a block, as your comment seems to indicate.

Closures are typically unnamed subroutines, holding a reference to their private instance of a variable (although such a variable may be shared between more than one subroutine). In your case, the subroutines are named, and there will only be once instance of $shared_variable.

Note also that your technique doesn't scale very well. Suppose you have subroutines sub1, sub2, sub3 and sub4. sub1 and sub2 want to share a variable $var1, sub2 and sub3 want to share a variable $var2, sub3 and sub4 want to share variable $var3, and sub4 and sub1 want to share $var4. In effect, you end up with all variables visible to all subroutines. An extra block doesn't really buy you much.

We should not use the term "local variable" in Perl, since it is not clear what this means. Perl has two type of variables: Lexical variables, and package global variables.