sub get_date {
        my @time=(localtime)[3..5];
        $time[2]+=1900;
        $time[1]++;
        foreach ($time[1], $time[0]) {
                $_ = '0'.$_ if $_ < 10;
        }
        "$time[2]$time[1]$time[0]";
}