Very handy!

Useful little check, this.

Made a couple of changes:

1)Security

Perl – correctly – complains about ‘Insecure $ENV{ENV}’ when running interactively, so added the lines:

75a76,78
> # Security
> delete @ENV{‘IFS’, ‘CDPATH’, ‘ENV’, ‘BASH_ENV’};
>

2) Allowed it to work on SLES boxen

268c271,275
$file = ” } elsif ( -e “/etc/SuSE-release” ) {
> $file = ” }