Select Code to Download

mkdir "reports", 0755 or warn "Cannot make reports director: $!";
chdir ("reports"); # As someone else pointed out, / makes the path abs
+olute.
...
         . "using DEFAULT group.\n";
    $group{$emp{$n}{'Org'}} = $group{'DEFAULT'}; }
  print $group{$emp{$n}{'Org'}} $emp{$n}{'Emp'}; }

for(unpack("C*",'GGGG?GGGG?O__\?WccW?{GCw?Wcc{?Wcc~?Wcc{?~cc'
.'W?')){$j=$_-63;++$a;for$p(0..7){$h[$p][$a]=$j%2;$j/=2}}for$
p(0..7){for$a(1..45){$_=($h[$p-1][$a])?'#':' ';print}print$/}