use LWP::UserAgent;
  
  my $nseurl = "https://nse-india.com/content/historical/EQUITIES/2017/AUG/cm14AUG2017bhav.csv.zip";
  my $file = "08SEP2017bhav.csv.zip";
  my @rows; 
  my $ua = LWP::UserAgent->new;
  $ua->agent("MyApp/0.1 ");

  my $req = HTTP::Request->new(POST => $nseurl);
  $req->content_type('X-UA-Compatible" content="IE=8');
  $req->content('text/csv; charset=utf-8');

  my $res = $ua->request($req);
  @rows = $res->content;
  
  open ( my $fhwrite, ">>", "$file") or die "$file: $!";
  if (defined $fhwrite) {
    print $fhwrite @rows;
    close ( $fhwrite );
 }