Select Code to Download

$cm->{temp}=150;
$cm->{amount}=100;
$cm->{heat_time}=5;

my $cm=new Coffee_Machine;
my $coffee=$cm->gimme_coffee();
my $cup=new Cup($coffee);