Use Dotenv for environment variable management in Perl examples

- Replaced custom `.env` file parsing logic with `Dotenv` library across all Perl examples.
- Updated `cpanfile` to include `Dotenv` as a dependency.
- Adjusted related documentation in `AGENTS.md` to reflect the usage of `Dotenv`.

Author: datalogics-kam

Perl/AGENTS.md

@@ -25,6 +25,14 @@
   - Base URL: `$ENV{PDFREST_URL} // 'https://api.pdfrest.com'`.
 - I/O: print API responses to STDOUT; send diagnostics to STDERR; exit non‑2xx with non‑zero status.
 
+### Environment Loading
+- Use `Dotenv` to read `.env` into `%ENV` (do not hand‑roll parsing).
+- Add dependency in `cpanfile`: `requires 'Dotenv';`.
+- Load with a guarded call so missing files are fine:
+  - JSON/Multipart examples: `my $env_path = "$Bin/../../.env"; -e $env_path and Dotenv->load($env_path);`
+  - Complex Flow examples: `my $env_path = "$Bin/../.env"; -e $env_path and Dotenv->load($env_path);`
+- Do not override pre‑existing environment variables; rely on library defaults (no explicit override).
+
 ## Testing Guidelines
 - No formal test suite required for samples. Validate by running against small, known inputs.
 - Success: non‑zero exit on failures; JSON body printed to STDOUT on success.

Perl/Complex Flow Examples/merge-different-file-types.pl

@@ -9,6 +9,7 @@
 use HTTP::Request;
 use HTTP::Request::Common qw(POST);
 use URI::Escape qw(uri_escape);
+use Dotenv;
 
 #!
 # What this sample does:
@@ -32,22 +33,9 @@
 binmode STDOUT, ':raw';
 binmode STDERR, ':encoding(UTF-8)';
 
-# Load .env from the Perl folder root
-my $env_path = "$Bin/../.env"; # one level up from Complex Flow Examples
-if (-f $env_path) {
-    open my $env_fh, '<:encoding(UTF-8)', $env_path or die "Cannot open $env_path: $!\n";
-    while (my $line = <$env_fh>) {
-        chomp $line;
-        next if $line =~ /^\s*#/;
-        next if $line !~ /\S/;
-        if ($line =~ /^\s*([A-Za-z_][A-Za-z0-9_]*)\s*=\s*(.*)\s*$/) {
-            my ($k, $v) = ($1, $2);
-            $v =~ s/^['"]|['"]$//g;
-            $ENV{$k} = $v if !exists $ENV{$k};
-        }
-    }
-    close $env_fh;
-}
+# Load .env from the Perl folder root (one level up from this script)
+my $env_path = "$Bin/../.env";
+-e $env_path and Dotenv->load($env_path);
 
 my $api_key = $ENV{PDFREST_API_KEY} // '';
 if (!$api_key || $api_key =~ /^\s*$/) {

Perl/Endpoint Examples/JSON Payload/markdown.pl

@@ -9,6 +9,7 @@
 use HTTP::Request;
 use HTTP::Request::Common qw(POST);
 use Encode qw(encode);
+use Dotenv;
 
 #!
 # What this sample does:
@@ -34,20 +35,7 @@
 
 # Load .env from the Perl folder root (two levels up from this script)
 my $env_path = "$Bin/../../.env";
-if (-f $env_path) {
-    open my $env_fh, '<:encoding(UTF-8)', $env_path or die "Cannot open $env_path: $!\n";
-    while (my $line = <$env_fh>) {
-        chomp $line;
-        next if $line =~ /^\s*#/;
-        next if $line !~ /\S/;
-        if ($line =~ /^\s*([A-Za-z_][A-Za-z0-9_]*)\s*=\s*(.*)\s*$/) {
-            my ($k, $v) = ($1, $2);
-            $v =~ s/^['"]|['"]$//g; # strip surrounding quotes
-            $ENV{$k} = $v if !exists $ENV{$k};
-        }
-    }
-    close $env_fh;
-}
+-e $env_path and Dotenv->load($env_path);
 
 my $api_key = $ENV{PDFREST_API_KEY} // '';
 if (!$api_key || $api_key =~ /^\s*$/) {

Perl/Endpoint Examples/JSON Payload/rasterized-pdf.pl

@@ -7,6 +7,7 @@
 use JSON::PP qw(encode_json decode_json);
 use LWP::UserAgent;
 use HTTP::Request;
+use Dotenv;
 
 #!
 # What this sample does:
@@ -32,20 +33,7 @@
 
 # Load .env from the Perl folder root
 my $env_path = "$Bin/../../.env";
-if (-f $env_path) {
-    open my $env_fh, '<:encoding(UTF-8)', $env_path or die "Cannot open $env_path: $!\n";
-    while (my $line = <$env_fh>) {
-        chomp $line;
-        next if $line =~ /^\s*#/;
-        next if $line !~ /\S/;
-        if ($line =~ /^\s*([A-Za-z_][A-Za-z0-9_]*)\s*=\s*(.*)\s*$/) {
-            my ($k, $v) = ($1, $2);
-            $v =~ s/^['"]|['"]$//g;
-            $ENV{$k} = $v if !exists $ENV{$k};
-        }
-    }
-    close $env_fh;
-}
+-e $env_path and Dotenv->load($env_path);
 
 my $api_key = $ENV{PDFREST_API_KEY} // '';
 if (!$api_key || $api_key =~ /^\s*$/) {

Perl/Endpoint Examples/Multipart Payload/markdown.pl

@@ -6,6 +6,7 @@
 use File::Basename qw(basename);
 use LWP::UserAgent;
 use HTTP::Request::Common qw(POST);
+use Dotenv;
 
 #!
 # What this sample does:
@@ -31,20 +32,7 @@
 
 # Load .env from the Perl folder root
 my $env_path = "$Bin/../../.env";
-if (-f $env_path) {
-    open my $env_fh, '<:encoding(UTF-8)', $env_path or die "Cannot open $env_path: $!\n";
-    while (my $line = <$env_fh>) {
-        chomp $line;
-        next if $line =~ /^\s*#/;
-        next if $line !~ /\S/;
-        if ($line =~ /^\s*([A-Za-z_][A-Za-z0-9_]*)\s*=\s*(.*)\s*$/) {
-            my ($k, $v) = ($1, $2);
-            $v =~ s/^['"]|['"]$//g;
-            $ENV{$k} = $v if !exists $ENV{$k};
-        }
-    }
-    close $env_fh;
-}
+-e $env_path and Dotenv->load($env_path);
 
 my $api_key = $ENV{PDFREST_API_KEY} // '';
 if (!$api_key || $api_key =~ /^\s*$/) {

Perl/Endpoint Examples/Multipart Payload/rasterized-pdf.pl

@@ -6,6 +6,7 @@
 use File::Basename qw(basename);
 use LWP::UserAgent;
 use HTTP::Request::Common qw(POST);
+use Dotenv;
 
 #!
 # What this sample does:
@@ -31,20 +32,7 @@
 
 # Load .env from the Perl folder root
 my $env_path = "$Bin/../../.env";
-if (-f $env_path) {
-    open my $env_fh, '<:encoding(UTF-8)', $env_path or die "Cannot open $env_path: $!\n";
-    while (my $line = <$env_fh>) {
-        chomp $line;
-        next if $line =~ /^\s*#/;
-        next if $line !~ /\S/;
-        if ($line =~ /^\s*([A-Za-z_][A-Za-z0-9_]*)\s*=\s*(.*)\s*$/) {
-            my ($k, $v) = ($1, $2);
-            $v =~ s/^['"]|['"]$//g;
-            $ENV{$k} = $v if !exists $ENV{$k};
-        }
-    }
-    close $env_fh;
-}
+-e $env_path and Dotenv->load($env_path);
 
 my $api_key = $ENV{PDFREST_API_KEY} // '';
 if (!$api_key || $api_key =~ /^\s*$/) {

Perl/cpanfile

@@ -8,3 +8,4 @@ requires 'Mozilla::CA';
 requires 'IO::Socket::SSL';
 requires 'Net::SSLeay';
 requires 'URI';
+requires 'Dotenv';