#!/usr/bin/perl -w
use POSIX 'floor';

$prin=shift(@ARGV);
$apr=shift(@ARGV);
$term=shift(@ARGV);

$mrate=(($apr / 100) / 12);
$pay=floor(($prin*$mrate) / ( 1 - ((1+$mrate)**(-1*$term))) * 100) / 100 ;

$total=$pay * $term;
$interest=$total - $prin;
print "$pay\t$interest\t$total\n";