#!/usr/local/bin/perl -w
use strict;
my $i = 1;
$i = $i++ + $i;

print $i;