Get the day of the week from a year, month and day

use Time::Local;

sub get_weekday
{
    my ($date) = @_;
    my ($year, $mon, $mday) = split /-/, $date;
    $mon--;
    my $time = timegm (0, 0, 0, $mday, $mon, $year);
    my @dates = gmtime ($time);
    my $wday = $dates[6];
    return $wday;
}