use Love;
use Data::Dumper;

@price = <DATA>;
$love = Love->loss(\@price);

__END__
SU Priviledges
Net Access
Using Linux