#!/usr/bin/perl -w
use strict;

my $type = "some line";
ref_test1();

sub ref_test1
{
    my $type="connect";
    print "Here in ref_test1.\n";

    ref_test2();
}
sub ref_test2
{
    print "Type: $type\n";
    print "Here in ref_test2\n";
}
__END__
Here in ref_test1.
Type: some line
Here in ref_test2