#!/usr/bin/perl -w
#procedura za zaokroževanje števil (na eno decimalno mesto natančno)

sub round {
    my($stevilo) = shift;
   $stevilo1 = $stevilo * 10;
    $stevilo1 = int($stevilo1 + .5);
    return ($stevilo1 / 10);
}

print "Vnesi poljubno stevilko z vec kot eno decimalko:";
$stevilo = <STDIN>; chomp($stevilo);
print "Na eno decimalno mesto zaokrozeno stevilo: ",round($stevilo),"\n";