#!/usr/bin/perl use 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;