or download this
sub manually_page {
system("/bin/bash -c clear");
my $wnum = &UnixDate( "today", "%U" ); # defines the week number f
+or the current week 1 - 53
...
Subject => 'Test message yepper',
'X-Mailer' => "Mail::Sendmail version $Mail::Sendmail::VERSION
+",
);