#!/usr/bin/perl
  use strict;
  use warnings;

  print $ENV{'HOME'}, "\n";