#!/usr/bin/perl
# Ex2_2.plx
use warnings;

#Przekszta liczb z systemu szesnastkowego do dziesitnego
print "Prosz poda liczb w systemie szesnastkowym, w celu przeksztacenia jej do systemu dziesitnego : \n";
my $hex = <STDIN>;

#usu znak nowego wiersza
chomp($hex);

print ("Dziesitna warto liczby $hex wynosi : ", (hex ("$hex")), "\n \n");

#Przekszta liczb z systemu semkowego do dziesitnego
print "Prosz poda liczb w systemie semkowym, w celu przeksztacenia jej do systemu dziesitnego : \n";
my $oct = <STDIN>;

#usu znak nowego wiersza
chomp($oct);

print ("Dziesitna warto liczby $oct wynosi : ", (oct ("$oct")), "\n \n");