Select Code to Download

>perl -c -we"print $a"
Name "main::a" used only once: possible typo at -e line 1.

$Foo::Baar=1;
print "Foo::Bar is enabled" if $Foo::Bar;

my $foo = 42;
eval q[$foo++];

my($unused, $foo) = func();

{ open my $fh, ">$file" or die $! }  # touch

{
   my $lock = lock_something();  # lock released on scope exit
   do_stuff_that_needs_the_lock();
}

{
   my $tree = ...;
   my $sentry = Object::Destroyer->new( $tree, 'delete' );
   ...
}

my $object = bless \do {my $var} => $class;