#!/usr/bin/env perl
use strict;
use warnings;
my $foo = <STDIN>;
chomp $foo;
my $bar = <STDIN>;
chomp $bar;
my $sum = $foo + $bar;
my $subtraction = $foo - $bar;
my $multipliation = $foo * $bar;
my $division = $foo / $bar;
print "sum is $sum\n";
print "subtraction is $subtraction\n";
print "multipliation is $multipliation\n";
print "division is $division\n";