## get content off web
my $start = "http://en.censor.net.ua/";
my $mech = WWW::Mechanize->new( autocheck => 1 );
$mech->get( $start );
my @links = $mech->find_all_links();
  for my $link ( @links ) {
  my $text;
  my $link = WWW::Mechanize::Link->new( {
    text => $text, 
  } );
  say "text is $link->text()"; 
}

##</code><code>##

text is WWW::Mechanize::Link=ARRAY(0x22ca880)->text()
text is WWW::Mechanize::Link=ARRAY(0x22ca8b0)->text()
text is WWW::Mechanize::Link=ARRAY(0x22ca820)->text()
text is WWW::Mechanize::Link=ARRAY(0x22ca868)->text()
text is WWW::Mechanize::Link=ARRAY(0x22ca898)->text()
text is WWW::Mechanize::Link=ARRAY(0x22ca808)->text()
text is WWW::Mechanize::Link=ARRAY(0x22ca850)->text()