feat: Add Perl script for Badi date and progress

This commit introduces a new Perl script, `badi-date.pl`, that provides a command-line interface for the Baha'i Date API.

The script includes the following features:
- Fetches and displays the Badi date for today or a specified date.
- Provides a `progress` command to visualize the progress of the Badi calendar year, Vahid, and Kull-i-S͟hayʼ.
- Uses `gum` for a beautiful and user-friendly output.
- Includes error handling for when `gum` is not installed, with installation instructions for various Linux distributions.

badi-date.pl

@@ -0,0 +1,79 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Getopt::Long;
+use JSON;
+use POSIX;
+use Data::Dumper;
+
+# Check for gum
+if (!-x "/usr/bin/gum") {
+    print STDERR "Error: gum is not installed. Please install it to continue.\n";
+    print STDERR "Installation instructions for popular Linux distributions:\n";
+    print STDERR "  Ubuntu/Debian: sudo apt install gum\n";
+    print STDERR "  Fedora: sudo dnf install gum\n";
+    print STDERR "  Arch Linux: sudo pacman -S gum\n";
+    print STDERR "  CentOS/RHEL: sudo yum install gum\n";
+    print STDERR "  openSUSE: sudo zypper install gum\n";
+    print STDERR "  Gentoo: sudo emerge gum\n";
+    print STDERR "  Alpine: sudo apk add gum\n";
+    print STDERR "  NixOS: nix-env -iA nixpkgs.gum\n";
+    exit 1;
+}
+
+my $today;
+my $date;
+my $progress;
+
+GetOptions(
+    'today' => \$today,
+    'date=s' => \$date,
+    'progress' => \$progress,
+);
+
+if ($today) {
+    my $json_string = `curl -s http://localhost:1844/today?timezoneId=America/New_York`;
+    my $json = decode_json($json_string);
+    my $message = $json->{'message'};
+    $message =~ s/<[^>]*>//g;
+    system("gum style --foreground 212 '$message'");
+}
+elsif ($date) {
+    my ($year, $month, $day) = split('-', $date);
+    my $json_string = `curl -s "http://localhost:1844/date?year=$year&month=$month&day=$day&timezoneId=America/New_York"`;
+    my $json = decode_json($json_string);
+    my $message = $json->{'message'};
+    $message =~ s/<[^>]*>//g;
+    system("gum style --foreground 212 '$message'");
+}
+elsif ($progress) {
+    my $json_string = `curl -s http://localhost:1844/today?timezoneId=America/New_York`;
+    my $json = decode_json($json_string);
+    my $badi_date = $json->{'badi_date'};
+
+    my $day_of_month = $badi_date->{'day'};
+    my $month_of_year = $badi_date->{'month'};
+    my $year_of_vahid = ($badi_date->{'year'} - 1) % 19 + 1;
+    my $vahid_of_kull_i_shay = floor(($badi_date->{'year'} - 1) / 19) + 1;
+    my $year_of_kull_i_shay = $badi_date->{'year'};
+
+    my $day_progress = "█" x $day_of_month . " " x (19 - $day_of_month);
+    my $month_progress = "█" x $month_of_year . " " x (19 - $month_of_year);
+    my $vahid_progress = "█" x $year_of_vahid . " " x (19 - $year_of_vahid);
+    my $kull_i_shay_vahid_progress = "█" x $vahid_of_kull_i_shay . " " x (19 - $vahid_of_kull_i_shay);
+    my $kull_i_shay_year_progress = "█" x int($year_of_kull_i_shay / 361 * 19) . " " x (19 - int($year_of_kull_i_shay / 361 * 19));
+
+
+    system("gum style --foreground 212 'Day of Month:     [$day_progress] $day_of_month/19'");
+    system("gum style --foreground 212 'Month of Year:    [$month_progress] $month_of_year/19'");
+    system("gum style --foreground 212 'Year of Vahid:    [$vahid_progress] $year_of_vahid/19'");
+    system("gum style --foreground 212 'Vahid of Kull-i-Shay: [$kull_i_shay_vahid_progress] $vahid_of_kull_i_shay/19'");
+    system("gum style --foreground 212 'Year of Kull-i-Shay: [$kull_i_shay_year_progress] $year_of_kull_i_shay/361'");
+}
+else {
+    # Default behavior: display today's date
+    # Or show help
+}
+
+1;