Select Code to Download

        $outfolder = "REPORT_output\_$year\_$mon\_$mday\_\_$hour\_$min
+\_$sec";

        $outfolder = "REPORT_output_${year}_${mon}_${mday}__${hour}_${
+min}_$sec";

my $msg   = "Hello world";
my $color = 101;                   # Red background
print "\e[${color}m $msg \e[m\n";  # Embed $color in escape sequence