my $date = calc_date();

inline sub calc_date {
    my $date = strftime('%Y-%m-%d', localtime);
    return $date;
}