print "How much would you like to invest in Microsoft? \n"
$invest = <STDIN>;
chomp $invest;
$losses = $invest;
print "You will lose $losses   \n";