#!/usr/bin/perl

print "What is your name?\n";
while ($name=<>){
	$split = chomp $name;
	print "Hello $name How are you feeling?\n";
	while ($feeling=<>){
		$split2 = chomp $feeling;
		print "really $name? you're feeling $feeling? I respect that, my freind once felt $feeling... \nlater then.\n";
		while (<>){
			print "=P\n";
			while (<>){
				print "what? what do you want $name?\n";
				while ($fuzz=<>){
					$fort = chomp $fuzz;
					print "so you want $fuzz?\n";
					while  (<>){
						print "well i can tell you, although $name is felling $feeling and wants $fuzz, \nDavid and Mully still ROCK! =)\n (now do CTR_C)";
					}
				}
			}
		}
	}
}