sub expect_main {

	my $exp = new Expect;
	$exp->configure_stuff;
	my $FB = expect_do_something(\$exp, \@expectthese, \@sendthese);

}

sub expect_do_something {
	my ($exp,$expectthese,$sendthese) = @_;
	$exp->expect(5,
		[ qr/$expectthese->[0]/, sub { 
			$exp->send("$sendthese->[0]");}],
		[ qr/$expectthese->[1]/, sub {
			$exp->send("$sendthese->[1]");}],		
	);
	my $fb = $exp->before();
	return $fb;
}