perl -MFcntl=:flock -e 'print 2+LOCK_EX'

##</code><code>##

perl -wle 'print $^W*2**$^W*2'

##</code><code>##

#!/usr/bin/perl -w

use strict;

print "Pick an integer between 1 and 3\n";
my $num = <STDIN>;
print "Pick another integer between 1 and 3\n";
$num += <STDIN>;
print "The sum is " . $num;

##</code><code>##

perl -wle '%h =  map {(qq{sum}) => $h{'sum'}+=$_ } qw/2 2/; print $h{sum}'

##</code><code>##

#!/usr/bin/perl -w

use strict;

my %foo;
%foo =  map {('sum') => $foo{'sum'}+=$_ } qw/2 2/;
print $foo{sum};