use LWP::UserAgent;
use strict;
use warnings;

my $b = LWP::UserAgent->new();

my $r = $b->get("http://profnano.org/");

if ($r->is_success)
{
  print "Yes";
}
else
{
  print "No";
}

exit;