#!/usr/bin/perl

use Merger::Success qw(Fiorina Capellas);
require employment;

print "Who's your daddy?";
	my $employer = <STDIN>;
if ( $employer =~ /compaq/i ) {
	my $life = "ok";
	sleep(8/24);
	} 	else   {
			my ($life, $family_time) = 0;
			my $work_load++ and my $SLA = 24*7;
			sleep(0);
			our $layoffs > 10000;
			open(WINDOW,"and.jump") unless my $job = new employment;
			}