#!/usr/bin/perluse warnings;use strict;sub define_global { use vars qw($package_variable); #scope NOT limited $package_variable = "defined in subroutine";}print $package_variable; define_global;print $package_variable;