#печатаем меню
    print "<li><a href=$Data{url_menu} target=_blank>$Data{menu}</a>";
#переменные меню из хэша
    my $url = "$Data{'url'}";
    my $menu = "$Data{'menu'}";
    my $s_url = "$Data{'s_url'}";
    my $url_menu = "$Data{'url_menu'}";
#далее подключаем скачивание файлов
    my $ua = LWP::UserAgent->new;
    my $request = HTTP::Request->new(GET => '$url'); #вот тут он то ли отказывается читать базу
#толи я не правильно здал переменную...правильно ли она написана? '$url'???
    my $response = $ua->request($request);

    if ($response->is_success) {
#создаем файл куда из хэша все записывается и с чем потом сравнивается
         open FP, ">newfile" ;
    print FP $response->content;
    close FP ;
#стандартное виндовое сравнение и вывод результата, чем отличаются файлы
    print `fc $Data{s_url} newfile` ;

  } else {
      print "Bad luck this time\n";
  }