#!/usr/bin/perl
print "Mega Sploed by Spyder\n";
print "Enter your ziferki\n";
chomp($x = <STDIN>);
chomp($y = <STDIN>);
print "Enter che vy tam xotite sdelat' c ziferkami\n";
chomp($act = <STDIN>);
if ($act eq +) {
print $x + $y;
}
if ($act eq -) {
print $x - $y;
}
if ($act eq *) {
print $x * $y;
}
if ($act eq /) {
print $x / $y;
}