#!/usr/local/bin/perl

use strict;
use warnings;

my $file_scoped_variable = '';

sub modify_var {
    $file_scoped_variable = "Var Set";
}

sub print_var {
    print "Hello ... " , $file_scoped_variable , "\n";
}

&modify_var;
&print_var;

__END__