#starting to comparing files...       
	if($vHandle ne $pHandle)
	{
#menu was modified...
	    print "<form action=menu.pl method=get>\n" ;
	    print "<font color=red>меню было изменено.<br>\n"; 
#printing modify date of the file
	    use File::stat;
	    my $sb = stat($pPath);
	    printf "   %s\n", 
	    scalar localtime $sb->mtime;
#copy button
	    print '<input type=submit name=copy value=copy>';
	    print "<input type=hidden name=update_id value=$Data{'id'}>";
	    print "<input type=hidden name=pPath value=$pPath>";
	    print "<input type=hidden name=vPath value=$vPath></form>";
#view buttton
	    print "<form  action=view.pl target=_blank method=post>\n" ;
   	    print '<input type=submit name=view value=view>';
   	    print "<input type=hidden name=view_id value=$Data{'id'}>";
	    print '</font></form>';
	}

use Win32::ODBC ;
use CGI ;
use File::Copy;
require HTTP::Request;
use LWP::UserAgent;
use LWP;
use HTTP::Headers;
use HTTP::Request;
$q = new CGI ;
#connecting to sql server -> to database----------------------------------------------------------------#
$DSN = 'SERVER=developer;DRIVER={SQL Server};DATABASE=alb;' ;
if (!($O = new Win32::ODBC($DSN))){
	print "Failure. \n\n";
	print Win32::ODBC::Error();
	exit();
}
$view_id = $q->param("view_id") ;
$view_id =~ s/\D//g ;
if ( $q->param("view") ne "" and $view_id ne "" ){
	if (! $O->Sql("select * from menu where id=".$q->param("view_id"))){
		$O->FetchRow() ;
		%Data = $O->DataHash();

    my $url = "$Data{'url'}";
    my $menu = "$Data{'menu'}";
    my $s_url = "$Data{'s_url'}";
    my $url_menu = "$Data{'url_menu'}";

		print "<b><a href=menu.pl>Назад</a><br></b>";



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

my $heads=HTTP::Headers->new();
#$heads->authorization_basic("login","passwd"); 

my $url="https://www.axion.com/WORK/OUP/OUP.HTM";
my $document=$ua->request(HTTP::Request->new(GET=>$url, $heads));
if($document->is_success) {
  print $document->content;
}

#    my $ua = LWP::UserAgent->new;
#    my $heads = HTTP::Headers->new;
#    $heads->authorization_basic("saa12838","alberts"); 
#    my $request = HTTP::Request->new(GET => "$url", $heads->as_string());
 
#    my $request = HTTP::Request->new(GET => "$url");
#    my $response = $heads->request($request);
    open FP, ">html_file" ;
    print FP $response->content;
    close FP ;
    print `fc $Data{s_url} html_file` ;

}}
#}}
print "</body></html>";

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

my $heads=HTTP::Headers->new();
$heads->authorization_basic("vidoq","mypasswordis123"); 

my $url="https://www.site.com/extras/update.htm";
my $document=$ua->request(HTTP::Request->new(GET=>$url, $heads));
if($document->is_success) {
  print $document->content;
} else
{
  print "Require authication...";
}

print $document->status_line, "\n";