有没有办法使用Perl以及在Linux或Solaris环境中读取其他进程的环境变量？

#!/usr/bin/perl

use strict;
use warnings;

my $pid = $ARGV[0];
my $variable = $ARGV[1];

if (!defined($pid) || !defined($variable)) {
    print "Usage: $0 <pid> <variable>\n";
    exit 1;
}

my $environ = "/proc/$pid/environ";

if (!-r $environ) {
    print "Error: Could not read $environ\n";
    exit 1;
}

open(my $fh, "<", $environ) or die "Can't open $environ: $!";

my $env;

while (my $line = <$fh>) {
    chomp $line;
    my ($key, $value) = split /=/, $line, 2;
    $env->{$key} = $value;
}

close($fh);

if (exists $env->{$variable}) {
    print "$variable=$env->{$variable}\n";
} else {
    print "Variable $variable not found\n";
}

./readenv.pl <pid> <variable>