<LocationMatch "/*.html$"> 
        Order deny,allow 
        Allow from all 
        SetHandler modperl 
        PerlHeaderParserHandler Cookie 
        PerlFixupHandler APS::Session 
        PerlResponseHandler AppKeyCookie 
        Header set P3P 'CP="CAO DSP COR LAW CURa ADMa DEVa PSAa PSDa OUR DELa BUS IND PHY ONL UNI PUR COM NAV INT STA"' 
        PerlLogHandler LogError 
    </LocationMatch>

package AppKeyCookie; 
        use strict; 
 
use Apache2::Request; 
use Apache2::RequestRec; 
use Apache2::RequestUtil; 
use Apache2::URI; 
use Apache2::Cookie; 
use Data::Dumper; 
use HTTP::Date; 
use Apache2::Const -compile => qw(:common); 
use IO::File; 
use WFC::Wurfl; 
 
	my $r = shift; 
	my $file =  $r->filename; 
	my $host = $r->hostname; 
	my $uri = $r->uri; 
	 
	if ($host eq 'mobile.somesite.com' || $r->prev){ 
                        print STDERR "host is $host\n"; 
			$r->content_type('text/html'); 
			$r->err_headers_out->add('Location' => 'iphone/index.html'); 
			return Apache2::Const::REDIRECT; 
	} elsif ($host eq 'somesite.com'){ 
		my $ua = $r->headers_in()->{'User-Agent'}; 
		my $wurfl = WFC::Wurfl->new; 
		my $mobile =  $wurfl->is_mobile($ua); 
		if ($mobile){     #this works! 
			my $new_host = $r->hostname('mobile.dev.where2getit.com'); 
			my $new_uri = 'http://mobile.dev.where2getit.com/chickfila/index.html';		 
			$r->internal_redirect($new_uri); 
			return Apache2::Const::OK; 
		} 
	} 
1;