RosettaCodeData/Task/Environment-variables/Perl/environment-variables-2.pl

use POSIX 'getenv';
print getenv("HOME"),"\n";