Help for this page

Select Code to Download


  1. or download this
    BEGIN
 {
...
  $currdirpp = File::Spec->catpath($zvolume, File::Spec->catdir(@dirs)
+, '');
  # Now do something with those variables.
 }
  2. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/