#!/usr/bin/perl -w

use strict;
use Env;

print "My home is $HOME\n";
print "My username is $USER\n";
#print "$PATH\n";
#exit;
print "These directories are in my path:\n";
foreach (split /:/, $PATH){
  print "$_\n"
}