#!/usr/bin/perl -w

#######Program vnese rezultate računske operacije in vnese v novo datoteko (število naknadno vpisani)


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

# spodaj odprem datoteko izhod1.txt kamor pisem podatke iz kkd za tabele,ukaz pri open >> dopise, > prepise
open (PISIV,">>izhod1.txt") || die "ne morem narediti datotelke";



$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";

#se pise v datoteko s simbolnim imenom PISIVC
print "Podatki se tudi zapisejo v datoteko izhod1.txt, ki se dopolnjuje zaradi ukza >>\n";
 print PISIV "a+b=$c\n  a*b=$d \n";