Help for this page

Select Code to Download


  1. or download this
    use vars qw[$dbuser $dbpass $dbsecret_time];

...
  close FILE;
  $dbsecret_time = $secretfile_modtime;
}
  2. or download this
    --
@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/