Select Code to Download

$Library_Index{<$Library>} = tell($library), scalar <$Library> until e
+of($Library);

#! perl -slw
use strict;
...
store \%idx, '1031021.idx' or die $!;

print time;

C:\test>1031021-i.pl <1031021.dat
1367160156
...
28/04/2013  15:04     5,272,940,608 1031021.dat
28/04/2013  15:46           316,385 1031021.idx
28/04/2013  15:29               374 1031021.pl

#! perl -slw
use strict;
...
close DAT;

print time;

C:\test>1031021.pl
1367160624
1367160624
1367160651