Loan Interest Solver in Perl

A simple program that I wrote using PERL to solve the loan of the customer. I will ask the user for the principal amount load, interest rate and the time.

Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

 
My mobile number here in the Philippines is 09173084360.

Program Listing

#!D:\xampp\perl\bin

sub find_interest {

  ($amount,$rate,$time) = @_;

   $solve_interest = ($amount * $rate * $time) / 100;

}

print "\n\n";

print "Loan Interest Solver";

print "\n\n";

print "Enter Principal Amount : ";

chomp($amount=<>);

print "Enter Rate of Interest : ";

chomp($rate=<>);

print "Enter Period of Time   : ";

chomp($time=<>);

print "\n\n";

print "Display Result";

print "\n\n";

print "The interest rate is $" ;

print  find_interest($amount,$rate,$time);

print "\n\n";

print "End of Program";

print "\n\n";