#!/usr/local/bin/perl -w # Define a variable. $myvar = "Hello"; # Print out the global variable. print "Global : $myvar \n"; # Print out the package specific variable. print "Specific: $main::myvar \n";