#!/usr/bin/perl
use POSIX 'strftime';
#my $date = strftime "%x_%T", localtime;

my $date = strftime "%x", localtime;
$date =~ tr#/#-#;
print "$date\n";