#!/usr/bin/perl 
print "-------------------------------------------------------\n";
print "National Lottery Number Picker		              \n";
print "-------------------------------------------------------\n\n";
print "How many lines do you want to play?\n";
print "Lines.....:";
$lines = <STDIN>;
@numbers = (1..49);
srand;
print "\n";
&chooseline();
$i = 1;
sub chooseline {
  while ($i < $lines) {
	&genline();		
	push @lines, @line;
	$i++;
		if ($i eq $lines) {
			print "\n\n";
			last;
		}  }		
  print "\n\n";
}
sub genline {
	@line = '';
	$e = 1;
    	while ($e ne "7") {
    		$index   = rand @numbers;
    		$element = $numbers[$index];
    		print "	$element";
			if ($e eq "6") {
				print "\n";
					push @line, $element;
					$newline = "\n";
					push @line, $newline;
				last;
			} else {
				push @line, $element;
			}
    	$e++;
} }
print "(E)mail Results / (Q)uit\n\n";
print "Action....:";
$action = <STDIN>;
exit if $action =~ /^Q/i;
if ($action =~ /^E/i) {
	print "\nEmail address...:";
	$email = <STDIN>;
	open (MAIL, "|/usr/sbin/sendmail -t");
		print MAIL "To: $email\n";
		print MAIL "From: Lottery Generator\n";
		print MAIL "Subject: Your Lottery Numbers\n";
		foreach $lin (@lines) {
		print MAIL "$lin	";
		}
	close (MAIL);
}