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