$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);