#!/usr/bin/perl

use strict;
use warnings;
$| =1;
print 'What is your name:  ';
my $reply = <>;
chomp($reply);
print $reply;
print "\nHi $reply \n";
print "$reply, please enter your income tax:" ;
my $var = <>;
if ($var < 5000)
{ print "no tax"; }
elsif ($var > 5000 && $var < 30000)
{ print "the tax rate is 10%"; }
elsif ($var  > 30000)
{ print "the tax rate is 20%"; }
print "\n";