minor tidying

double quotes require the parser to look if there are variables to
interpolate. Using single quotes when there are none is a good
practice both for the visual hint to the developer and as a
parsing hint to the perl interpreter.

Also, sequential 'print' statements might require extra IO and
clutter the code. It is recommended to either concatenate the
strings (as this patch does) or, if the text is too big, using
heredocs.

Author: garu

Linux_Exploit_Suggester.pl

@@ -3,11 +3,12 @@
 use warnings;
 use Getopt::Std;
 
-our $VERSION = "0.7";
-my $khost = "";
+our $VERSION = '0.7';
+my $khost = '';
 my %opts;
 getopt( 'k,h', \%opts );
 
+
 if ( exists $opts{h} ) { &usage; }
 
 if ( exists $opts{k} ) {
@@ -20,10 +21,11 @@
 print "\nKernel local: $khost\n\n";
 
 sub usage {
-    print "Linux Exploit Suggester $VERSION\n";
-    print "Usage: \t$0  [-h] [-k kernel]\n";
-    print "\t[-h] help (this message)\n";
-    print "\t[-k] kernel number eg. 2.6.28\n";
+    print "Linux Exploit Suggester $VERSION\n"
+        . "Usage: \t$0  [-h] [-k kernel]\n"
+        . "\t[-h] help (this message)\n"
+        . "\t[-k] kernel number eg. 2.6.28\n"
+        ;
 }
 
 my %h = (