#!/usr/bin/perl -w

my $a = 1;
my $c = 2;
print $a + c;