#!/usr/bin/perl -w

use strict;

if ($#ARGV != 1) {
    die "Usage: mult integer integer\n"
}
foreach (@ARGV) {
    die "Integers only\n" if (/\D+/);
}
my $tot = sprintf "%lf\n", $ARGV[0] * $ARGV[1];
$tot =~ s/(\d+)(\.0+)/$1/;
print $tot;