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

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

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

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