use WWW::Mechanize;

    srand;

    my $url = 'http://avantgardeconcierge.com/';
    my $mech = WWW::Mechanize->new();
    my @a = $mech->known_agent_aliases();
    my $agent = $a[int(rand(@a))];
    $mech->agent_alias( $agent );
    $mech->get( $url );

    my $content = $mech->content();

    print "Using Agent: $agent\n";
    print "Web Content: $content\n\n";