| Server IP : 172.67.220.81 / Your IP : 216.73.216.41 Web Server : Apache System : Linux semi1.us.cloudlogin.co 5.10.244-xeon-hst #1 SMP Sun Sep 14 17:09:20 UTC 2025 x86_64 User : xessglobal ( 271017) PHP Version : 8.1.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : ON Directory : /proc/self/root/usr/local/bin/ |
Upload File : |
#!/usr/bin/perl -w
use strict;
use warnings;
use Calendar::Simple;
my @months = qw(January February March April May June July August
September October November December);
my $mon = shift || (localtime)[4] + 1;
my $yr = shift || (localtime)[5] + 1900;
my @month = calendar($mon, $yr);
my $mon_name = $months[$mon - 1];
my $pad = int((20 - length("$mon_name $yr")) / 2);
print "\n", ' ' x $pad, "$months[$mon - 1] $yr\n";
print "Mo Tu We Th Fr Sa Su\n";
foreach (@month) {
print map { $_ ? sprintf "%2d ", $_ : ' ' } @$_;
print "\n";
}