#!/usr/bin/perl
my $total;
$money=$ARGV[0];

if($money>=38000 || $money<=0)
        {
        $calc=$money*0.195; $total+=$calc;
        print "Under 38k \$$calc\n";
        }

if($money>=38001 || $money<=60000)
        {
        if($money<60000)
                {
                $calc=($money-38001)*0.33;
                }
        else
                {
                $calc=(60000-38001)*0.33;
                }
        $total+=$calc;
        print "Over 38k \$$calc\n";
        }

if($money>=60001)
        {
        $calc=($money-60001)*0.39;      $total+=$calc;
        print "Over 60k \$$calc\n";
        }

print "Meaning You Owe [\$$total]\n";