Format Perl dziesiętny 2 miejsca nie zaokrąglone
my $places = 2;
my $factor = 10**$places;
int(1.555 * $factor) / $factor; # 1.55
Outstanding Oystercatcher
my $places = 2;
my $factor = 10**$places;
int(1.555 * $factor) / $factor; # 1.55