Mega Code Archive

 

Categories / Perl / Language Basics

 

Use strict Pragma

use strict "vars"; my $name = "Tom";       #All variables are lexical in scope our @friends = qw(Tom Stefan Bin Marie); our $newspaper = "The Globe"; print "$name and $friends[0] read the $newspaper.\n";