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]

can you please update my complete code with the filedate.. what is the mess that's filedate creates...

i didnt understand this one...my script is working fine..why do i need to add this again??