#!/usr/bin/perl
use warnings;
use strict;

my $file_scope = "my value";
print $file_scope, "\n";

sub topsub {
    my $top_scope = "visible in 'topsub'";
    if (1 > 0.5) {
        my $if_scope = "visible inside 'if'";
        print "$file_scope, $top_scope, $if_scope \n";
    }
    bottomsub();
    print "$file_scope, $top_scope\n";
}

sub bottomsub {
    my $bottom_scope = "visible in 'bottomsub'";
    print "$file_scope, $bottom_scope \n";
}

topsub();
print $file_scope, "\n";