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

my $amount=shift;
die "$amount not numeric" unless $amount =~ /^\d+$/;

my $days=shift;
die "$days not numeric" unless $days =~ /^\d+$/;

my $perdiem=$amount/$days;

my $incToDate=50000;
my $estAnnInc=$incToDate+$amount;

my $estAnnTax=int($estAnnInc/19);

printf "\$%02.2d per diem.  \$%5.02d est inc., \$%02d est. tax\n", $perdiem, $estAnnInc, $estAnnTax;