use Env;                     # import all possible variables

use Env qw(PATH HOME TERM);  # import only specified variables

*****

@path = split(/:/, $PATH);

*****

$PATH .= ":.";

*****

undef $PATH;

*****

delete $ENV{PATH};

