#!/bin/perl
#This script is written in Perl.  %ENV is an associative array.
#awk has associative arrays, too.  See textbook, pp. 123-124.

$home = $ENV{HOME};
if (!defined $home) {
	exit 1;
}

print "$home\n";
exit 0;