my $date;
SOMEUNIQUELABEL:
{
    my $date = strftime('%Y-%m-%d', localtime);
    $date = $date;
    last SOMEUNIQUELABEL;
}