#!/usr/bin/perl

    $accept = $ENV{"HTTP_ACCEPT"}; 
    $agent = $ENV{"HTTP_USER_AGENT"}; 

    if ($agent =~ "UP") { 

        if ($accept =~ "wmlscript") { 

            # UP.Browser 4.x (WML) 
            print "Location: http://www.cordev.com/index.wml\n\n"; 
            exit(0); 

        } else { 

            # UP.Browser 3.x or earlier (HDML) 
            print "Location: http://www.cordev.com/index.hdml\n\n"; 
            exit(0); 
        } 
    } else { 

        # Not a Phone.com Browser (HTML) 
	print "Location: http://www.piwebcentral.com\n\n";
        exit(0); 
    }