[root@fc4dev ~]# cat stormdev.pl 
#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
my @TimeZoneRegions = ( 
    "Eastern Time Zone", 
    "Central Time Zone", 
    "Mountain Time Zone", 
    "Pacific Time Zone", 
    "Alaska Time Zone", 
    "Hawaii Time Zone", 
); 
 
my $HTML = htmlTimeZonePopdown(); 
 
print $HTML; 
 
sub htmlTimeZonePopdown { 
    my $default  = shift; 
    my $html = ""; 
 
    $default = 0  if ($default eq ""); 
 
    foreach my $offset (0..scalar(@TimeZoneRegions)-1) { 
 
        my $selected =   ($offset == $default) ? "selected" : ""; 
 
        $html .=  qq~ <option value="$offset" $selected>$TimeZoneRegions[$offset]</option>\n ~; 
    } 
 
    return $html; 
}