> Perlで或る年月日が何曜日かはどうやって調べればよかですか？

use Time::Local;
my $date_string = "2001/06/09";
$date_string =~ m#(\d+)/(\d{1,2})/(\d{1,2})#;
print qw(Sun Mon Tue Wed Thu Fri Sat)[(localtime(timelocal(0,0,0, $3, $2-1, $1-1900)))[6]];

参考：2001/06/09(土)04時42分50秒