get a clue

perl scripting for real security
( see full story )

quote:
#!/usr/bin/perl
#
# the perl of security ( gettn’ a clue )
# by m.wood
#
# version 1.03
#

use CommonSense; # you do have this module… right?
use Logic; # just the facts
require IO::openMind;

print(“get a clue\n”);

my $awareness=”$perspective,$insight”;

#give input here
my $newskill=”STDIN”;

{
if(defined $clueless) {
&perspective($clueless);
exit; # die here… your stupid
}
# sub aquire skill
for $security {
$perspective(openMind+($awareness));
if($insight->from($newskill));
}
}
print “now you have a clue, kthnx\n”;
exit;

Leave a Reply