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};