Select Code to Download

#!/bin/perl -w
use strict;         ## be strict! always!
...

# no need for printf if you want to print simple strings
print "Count of MAJOR = $major, CRITICAL = $critical, MINOR = $minor\n
+";

#!/bin/perl -w
use strict;           ## be strict! always!
...
    "Count of MAJOR = %d, CRITICAL = %d, MINOR = $%d\n",
    @count{qw(MAJOR CRITICAL MINOR)}
);