# use FinalDays::SingleMan;
use strict;

my $self                = 'single';

my $money               = 300;
my $free_time           = 10;
my @hard                = ('perl','quake', 'basketball', 'the guitar', 'some more perl','ping-pong');
my @friends             = qw(Steve Julie Nathan Colin Jody);
my @bills               = ('the bills', 'the rent', 'and the expenses');
my $life                = 'undef';
my $in                  = 3;

if ($self eq 'single') {  
	your($self);
	sleep($in);
	play(@hard) if $free_time > 0;
	go_places(@friends);
	spend($money) if $money;
	$life = 1;
	}
	else { 
		#require patience;
		$life = 0;
		my $freedom = 0;
		$self = 'married';
		your($self);
			unless ( ($self =~m/work/) && (pay(@bills)) ) { 
				loose('my job','my spouse','the car','the nice apartment','and everything');
				go_back(2,"my parent's house");
				}		}
	
	############## subs ################ that actually make it work !
	
sub spend {
	my $savings = shift;
	my $expenses = 200;
	my $net_worth = ($savings - $expenses);
	print "\n\nCrap! I'm broke! I've only got $net_worth dollars!! \n \n Well .....at least I'm still single!!";
	sleep(2); 
	print "\n\n                 The End";
	print "\n\n                 -Silent11";	
	print "\n\n        (getting hitched Mar 16 2002)";	
	}

sub play {
	my @fun = @_;
	print "In the meantime.....\n\n";
	sleep($in);
	foreach my $pasttime (@fun) { 	
		print "  (   enjoying $pasttime  )\n\n";	
		sleep($in-2);} sleep(2);	}

sub pay {	return 0; 	}

sub go_places {
	 my $good_friends = join(', ',@_);
	 print "\"hey, $good_friends, let's all go out!\" \"I'm still single!!!!\"";
	 sleep(3); }

sub loose {
	my $the_bills = join(', ',@bills);
	my $things = join(', ',@_);
	print "This is tough!!!\n\n";
	print "I forgot to pay $the_bills and I lost $things\n\n";
	sleep(1);}

sub go_back {
print "Shucks! This marriage thing didn't work out, I'm back living in @_[1]\n\n";
	sleep(4); 
	print "\n\n               Just Kidding !!!!";
	}

sub your {
print "\n\n\nI'm @_[0] !!!!!! \n\n";
}