#!/usr/local/bin/perl

print STDOUT "Please enter the balance: ";
$b = <STDIN>;
chop ( $b );

print STDOUT "Please enter interest rate: ";
$i = <STDIN>;
chop ( $i );

printf ( STDOUT "The interest amount for the month is \$%05.2f\n",
$b * $i / ( 12 * 100 ) );