use strict; 
  use warnings; 

    use WWW::Mechanize;
    use File::Basename; 

    my $m = WWW::Mechanize->new;

    $m->get("the domain name ");