#!/usr/bin/perl -w
use strict;

my($dif,$randNumber,$manip,$whichstock,$howmany,$goal,$date,$derpco,$tetrabytz,$mojoinc,$freke,$mega,$cash,@stocks,$buy,$sell,$buynum,$sellnum,$trans);

@stocks = (0,0,0,0,0);

sub genRand {
my $startNumber = shift();
my $endNumber = shift();
my $randNumber = int($startNumber + rand() * ($endNumber - $startNumber));
return $randNumber;
};
print "What Goal In Cash Do You Want To Set? :";
chomp ($goal=<STDIN>);
print "Thanks\n\n";

$date=1;

$derpco=genRand(10,100);
$tetrabytz=genRand(10,100);
$mojoinc=genRand(10,100);
$freke=genRand(10,100);
$mega=genRand(10,100);
$cash=genRand(500,1000);