notify_user (
        qq|\n\nYour Stock Report for January $date\n\n|,
        qq|Holdings\tValue\tCompany\n\n|);
    notify_user( qq|\t$portfolio{$_}\t\$$ticker{$_}{price}\t$_\n| )
    		for @stock_names;
    my $transaction = query_user(
        qq|\nYou have \$$cash in cash and \$|,
        portfolio_value( \%portfolio, \%ticker, ),
        qq| in stocks.\n|,
        qq|Would you like to (B)uy or (S)ell or are you (D)one? | );