21 |
my $path = $_; |
my $path = $_; |
22 |
|
|
23 |
open(F,"$path") || die "can't open file: $path"; |
open(F,"$path") || die "can't open file: $path"; |
24 |
print STDERR "$path"; |
# print STDERR "$path"; |
25 |
my $contents; |
my $contents; |
26 |
while(<F>) { |
while(<F>) { |
27 |
# chomp; |
# chomp; |
37 |
my $mtime = time; |
my $mtime = time; |
38 |
my $size = length $contents; |
my $size = length $contents; |
39 |
|
|
40 |
print STDERR " [$size]\n"; |
# print STDERR " [$size]\n"; |
41 |
|
|
42 |
# Output the document (to swish) |
# Output the document (to swish) |
43 |
print <<EOF; |
print <<EOF; |