Select Code to Download

$formatted_date = now_date() ; 

...
    my $now_scal = join "-",  ( $now_year, $now_month, $now_day )  ; 
    return  $now_scal ;
}

sub now_date {
    my @now = localtime ; 
...
    $now_scal = sprintf "%04d-%02d-%2d", $now_year , $now_month ,$now_
+day ;
    return $now_scal
}