$I = "Damian";
$fun="happiness";
$I &have(!$fun);

sub have{
	print "Because $I choose ! to";
	$I delete($time) && sleep inside;
	use computer qw/all day write perl/ && enjoy it;
	$I unlink(friends) until $friends = 0;
	$I accept criticism, called(dork, computer_nerd..);
}
$I need(a_life, friends) foreach $day $I exists; 
# Will you be my friend :-)