#!/usr/bin/perl

use strict;
use Time::Local;

my $date = "2007-11-06 02:15:04";
my @times = $date =~ /(\d\d\d\d)-(\d\d)-(\d\d) (\d\d):(\d\d):(\d\d)/;

my $time = timelocal(reverse @times);

my $wday1 = (localtime($time))[6];
my $wday2 = (localtime())[6];

print $wday1,"\n", $wday2,"\n";