perl 요일 이름으로 파일 생성

use POSIX qw(strftime);

$dir_name = strftime "%Y-%m-%d-%H-%M-%S", localtime();

system( "mkdir " . $dir_name );