#!/usr/bin/perl

use strict;
use Env qw($HOME $PATH);

print "My home is $HOME\n";
print "My path is $PATH\n";
print "My username is $USER\n";