2nd business day Monday March 4 2019

#
# Hello World Program in Perl
#
print "Hello World!\n";

my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday ) = localtime();

print "Wday: " . $wday . "\n";
print "mday: " . $mday . "\n";

$mday = 4;
$wday = 1;

if ($mday == 4 &&  ( $wday == 1 || $wday == 2 ) )
{
	$is_this_working_day = 1;
	print "This is 2nd working day!";
}
else
{
    	print "Maybe not";
}