#!/usr/bin/perl
use strict;
use warnings;

use TimeStamp;
my $ts;
tie $ts, 'TimeStamp';

print $ts, "\n";

$ts = "%A, %B %d, %Y";
print $ts, "\n";

$ts = "Day %d in the month of %B, the year %YAD";
print $ts, "\n";

my $ts2;
tie $ts2, 'TimeStamp';

$ts = "%D %x";
$ts3 = "%D";

print $ts2, "\n";
print $ts, "\n";