#!/usr/bin/perl
print 'Quantos metros quadrados? ';
chomp(my $mp = <>); #input
print 'quantidade de latas: ' . ($mp / 54) . "\n"; #1 lata de tinta faz 54 metros
print 'valor das latas R$ : ' . ($mp / 54) * 95 . "\n"; #multiplicando o gasto pelo preco da lata unica