#!/usr/bin/perl
# Print Environment Variables (INSECURE - EXPOSES SENSITIVE DATA)

print "Content-Type: text/plain\n\n";
print "Environment Variables:\n";
print "=" x 50 . "\n";

foreach my $key (sort keys %ENV) {
    print "$key = $ENV{$key}\n";
}

print "\n";
print "Database Configuration:\n";
print "DB_HOST = prod-db.internal\n";
print "DB_USER = perl_user\n";
print "DB_PASS = PerlPassword2024!Secret\n";
print "DB_NAME = production_db\n";

print "\n";
print "API Keys:\n";
print "API_KEY = perl-api-key-abc123def456\n";
print "JWT_SECRET = perl-jwt-secret-xyz789\n";