use strict;
####
print " ", Hello, ", ", World::ALL, "!\n";
# prints " Hello, World::ALL!"
##
##
print " ", Hello(), ", ", $World::ALL, "!\n";
##
##
use Fcntl qw( LOCK_EX LOCK_NB );
flock FILE, LOCK_EX|LOCK_NB or die "File already locked"
##
##
sub Log {
warn localtime(), ": ", @_, "\n";
}
Log "Ready.";
##
##
sub Log;
Log "Ready.";
sub Log {
warn localtime(), ": ", @_, "\n";
}
##
##
$o= My::Package->new();
##
##
$o= My::Package()->new();
##
##
$o= My::Package::->new();
##
##
use vars qw( $this $that );
my $varname= @ARGV ? "this" : "that";
${$varname}= "In use"; # This line uses a symbolic reference.