# return date as string in format: YYYYMMDD
sub date2str {
    # see 'perldoc -f localtime' for details
    my ( $sec, $min, $hour, $mday, $mon, $year ) = localtime;

    return sprintf "%04d%02d%02d", $year+1900, $mon+1, $mday;
}