Select Code to Download

    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.";
...
        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.