use Storable;
   use LWP::Simple;

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

    $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/'.$filedate;
    	$filename=join "",$DownloadFilePath.$filedate;
    mirror($url, $filename)