#!/usr/bin/perl
# Ex2_1.plx
use warnings;
use strict;

print "Konwerter walut\n\nProsz poda kurs wymiany jenw:";
my $yen = <STDIN>;

#Zapytaj uytkownika o kwot i dokonaj przeliczenia
print "A teraz prosz poda pierwsz kwot: ";
my $first = <STDIN>;
my $a = ($first/$yen);
print "Prosz poda drug kwot: ";
my $second = <STDIN>;
my $b = ($second/$yen);
print "Prosz poda trzeci kwot: ";
my $third = <STDIN>;
my $c = ($third/$yen);

#Przekszta wynik do wartoci z dwoma miejscami dziesitnymi i zaokrglij go.
my $mod1  =  (int  (100*$a)/100);
my $mod2  =  (int  (100*$b)/100);
my $mod3  =  (int  (100*$c)/100);

#Pozbd si znakw nowego wiersza
chomp ($first, $second, $third);

#wywietl odpowied z dokadnoci do dwch miejsc po przecinku
printf ("$first jenw to  %.2f  funtw\n", $mod1);
printf ("$second jenw to  %.2f  funtw\n", $mod2);
printf ("$third jenw to  %.2f  funtw\n", $mod3);