403Webshell
Server IP : 216.92.14.13  /  Your IP : 216.73.216.171
Web Server : Apache
System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64
User : rmlac2fmr ( 1040637)
PHP Version : 8.2.32
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/local/bin/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/local/bin/pcal
#!/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";
}

Youez - 2016 - github.com/yon3zu
LinuXploit