#!/usr/bin/env perl
=pod
title=extract content from webpage
cid=1

1. Load web page from url http://xxx
2. Retrieve img element zt-logo.png in html
- 3. Check img exist @ `必应`

=cut

use LWP::Simple; # need LWP::Simple module
$html = get('https://cn.bing.com');

if ( $html =~ /<title>(.*?)</ ) {
  print "$1\n";
}
