#!/usr/bin/perl -w use strict; 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' ); }