Mega Code Archive

 

Categories / Perl / Language Basics

 

Use strict with package

#!/usr/bin/perl -w use strict; $main::x = 10; print $main::x, "\n";