Select Code to Download

    my( $yr, $mo, $day, $hr, $min, $sec )=
        $when =~ /(\d{4})(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/;

    my( $cc, $yr, $mo, $day, $hr, $min, $sec )=
        $when =~ /(\d\d)/g;
    $yr += $cc*100;