#!/usr/bin/perl -l

use strict;
use warnings;
use Date::Calc qw/:all/;

print(Day_of_Week_to_Text(Day_of_Week(Today)));

__END__