use Web::Magic -sub=>'web';
say web('http://www.cpantesters.org/distro/W/Web-Magic.yaml')
  ->[0]{guid};

##</code><code>##

use Web::Magic -sub=>'web';
say $_->title
  foreach web('http://www.w3.org/News/atom.xml')->entries;

##</code><code>##

use 5.010;
use Web::Magic -sub => 'web';

# Paste to paste2.org, and say the URL it was pasted to
say web('http://paste2.org/new-paste')
  ->POST({
      code        => 'say "Hello world";',
      lang        => 'perl',
      description => 'Perl Hello World',
      parent      => 0,
      submit      => 'Submit',
    })
  ->Content_Type('application/x-www-form-urlencoded')
  ->header('Location');