#!/usr/bin/env perl
use strict;
use warnings;
unless ( -d '/usr/share/zoneinfo' ) {
print <<'EOF';
This script is hard-coded to use /usr/share/zoneinfo but you do not
have such a directory. Are you sure you want to use it?
EOF
exit;
}
my @files = qw( africa antarctica asia australasia
europe northamerica pacificnew
southamerica backward
);
for my $f (@files) {
system( './zic', $f, '-d', '/usr/share/zoneinfo' );
}