#!/usr/bin/perl -w
use strict;
use warnings;

my $a = 0.57;
my $b = 100;

my $c = sprintf("%0.0f", $a * $b);

print $c . "\n";