I am guessing WWW::Mechanize assumes HTML, thus, text contents, and treats it that way. getstore, on the other hand, saves (all) files as binary by default.

update From the WWW::Mechanize docs:

$mech->save_content( $filename )

Dumps the contents of $mech->content into $filename. $filename will be overwritten. Dies if there are any errors.

If the content type does not begin with "text/", then the content is saved in binary mode.

thanks...your solution worked well... LWP Simple worked... here is the modified code and it worked well..perl seems interesting

    use Storable;
   use LWP::Simple;

#---------------------------------------------------------------------
+---------
#  Define Variables for this process
#---------------------------------------------------------------------
+---------
# File Down load path is used as a varible: $DownloadFilePath=<Path na
+me>

    $DownloadFilePath="D:\\LIPAPSM\\DSSourcefiles\\";

#=====================================================================
+=========
#  START OF PROGRAM
#=====================================================================
+=========


    $one_day = 60*60*24 ;
    my($day, $month, $year) = (localtime time+$one_day)[3,4,5];
    $month = sprintf '%02d', $month+1;
        $day   = sprintf '%02d', $day;
        $Datetotal=($year+1900).$month.$day;
    $filedate=join "", $Datetotal."damlbmp_zone.csv"; 
    $url = join "",'http://mis.nyiso.com/public/csv/damlbmp/'.$filedat
+e;
        $filename=join "",$DownloadFilePath.$filedate;
    mirror($url, $filename)
[download]

And these lines are odd - you join strings with 'join' and '.':

  $filedate=join "", $Datetotal."damlbmp_zone.csv"; 
  $url = join "",'http://mis.nyiso.com/public/csv/damlbmp/'.$filedate;
  $filename=join "",$DownloadFilePath.$filedate;
[download]

You can simply quote them as one:

  $filedate = "${Datetotal}damlbmp_zone.csv"; 
  $url      = "http://mis.nyiso.com/public/csv/damlbmp/$filedate";
  $filename = "${DownloadFilePath}$filedate";
[download]

Now lets cleanup that messy filedate code.

use POSIX qw(strftime);

my $filedate = strftime("%Y%m%d", localtime(time() + 86400));
[download]

After our troubleshooting, we found out that the file downloaded by newer version come with empty rows between data, since the .csv files came with spaces (empty rows), it is not being processed and fails.

So there is no way of empty lines appearing because of UNIX-newlined file being viewed as DOS-newlined. Can you provide a small hexdump of a damaged file?

what is hexdump? we are working on windows... when i used the command call unix2dos, i am getting the output i needed...but i cant use the unix2dos utility...all i need to do is using perl only...

Hexdump is a hexadecimal representation of bytes in a file. You can obtain it by running something like this:

open my $f,"<:raw","file.csv" || die $!;
my $c;
for (1..8) {
 for (1..16) {
  read $f,$c,1 || exit 0;
  print unpack "H2",$c;
 }
 print "\n";
}
[download]

You can rewrite unix2dos in Perl using PerlIO :crlf output layer.
Sorry if my advice was wrong.

can you please let me know where to put that in my script...as i told u guys..i am completely new to perl... i am etl devleoper...there are many such scripts that download the files and they are used by upstream processes...its all automated...i cant manually go to each and every file

what regular expression? i am new to perl and i have been assigned to do this...i am an ETL guy

s/\r\n/\n/g should do it.

See perldoc perlop and search for "Regex Quote-Like Operators." Also see perldoc perlre.

This command replaces the \r\n sequence with \n for every occurrence in the string.

Most of the time these commands invoke sed scripts, which can apply a regular-expression to modify the content of a file.