Name: Anonymous 2011-04-04 7:42
print "please enter the retail price ";
$retailPrice=<STDIN>;
print "Please enter the transaction code ";
$transCode=<STDIN>;
chomp $transCode;
print "Please enter employee number ";
$empNum=<STDIN>;
if ($transCode eq "S")
{
$comm=$retailPrice*.05
}
else
{
if ($transCode eq "M")
{
$comm=$retailPrice*.07
}
else
{
if (transCode eq "L")
{
$comm=$retailPrice*.10
} #end if ($transCode eq "M")
} #end if ($transCode eq "M")
} #end if ($transCode eq "S")
print "Retail price is ". $retailPrice;
print "Commision is ". $comm;
print "Employee number is ". $empNum;
$retailPrice=<STDIN>;
print "Please enter the transaction code ";
$transCode=<STDIN>;
chomp $transCode;
print "Please enter employee number ";
$empNum=<STDIN>;
if ($transCode eq "S")
{
$comm=$retailPrice*.05
}
else
{
if ($transCode eq "M")
{
$comm=$retailPrice*.07
}
else
{
if (transCode eq "L")
{
$comm=$retailPrice*.10
} #end if ($transCode eq "M")
} #end if ($transCode eq "M")
} #end if ($transCode eq "S")
print "Retail price is ". $retailPrice;
print "Commision is ". $comm;
print "Employee number is ". $empNum;