File Perl

  1. Home
  2. Perl
  3. File
  4. Glob pack
#!/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;