Select Code to Download

$thisday =   (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday
+)[$wday];

my @days = qw(
     Sunday Monday Tuesday Wednesday Thursday Friday Saturday
...
    January February March     April   May      June
    July    August   September October November December
);

my @rec = `ipconfig /all`;

    $datetime = $time.' '.$ampm.', '.$thisday.', '.$thismon.' '.$mday.
+', '.$year;

    my $datetime = "$time $ampm, $thisday, $thismon $mday, $year";

use strict;
use warnings;
...
}

PrintWelcome();