| changeset 60 | 5c07e27687f2 |
| parent 51 | 0b6b92d1eb65 |
| child 61 | 38b3bff416ba |
| 58:f837948e43a4 | 60:5c07e27687f2 |
|---|---|
35 blocksize => BS, |
35 blocksize => BS, |
36 pass => undef, |
36 pass => undef, |
37 comment => undef, |
37 comment => undef, |
38 ); |
38 ); |
39 lock_keys(%o); |
39 lock_keys(%o); |
40 |
|
41 my $NOW = time(); |
|
42 |
40 |
43 MAIN: { |
41 MAIN: { |
44 GetOptions( |
42 GetOptions( |
45 "h|help" => sub { pod2usage(-verbose => 1, exit => 0) }, |
43 "h|help" => sub { pod2usage(-verbose => 1, exit => 0) }, |
46 "m|man" => sub { |
44 "m|man" => sub { |