#!/usr/bin/perl -w

###### Program mi naredi računsko opreacijo po naknadno vnešenih številih


print"Polejmo si vsote in produkte testni porogram za branje iz tipkovnice\n";
#vnos dveh števil
print "Vstavi vrednost a ";  $a=<STDIN>; chomp($a); 
print "\nVstavi vrednost b ";  $b=<STDIN>; chomp($b);


$c=$a*$b;
$d=$a+$b;

#Pa jih seštejem
print "\n Vsota števil $a in $b je $c\n";
print "Produkt števil $a in $b je $d\n";