#!/usr/bin/perl -w

#######################################################
# lect07_ENV_play
#
# playing with the environment hash %ENV
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 10-5-04
#######################################################

# here is the USUAL ls...
print "about to call the 'usual' ls: \n";
print "===================================\n";

system "ls";

# changing the path for THIS script: now it will look
#    in /home/st10/wierdies FIRST for a command

$ENV{'PATH'} = "/home/st10/wierdies:$ENV{'PATH'}";

print "\n";
print "here, now, is script's PATH: \n";
print "=====================================\n";
print "$ENV{'PATH'}\n";

print "\n";
print "about to call the 'wierd' ls: \n";
print "===================================\n";

system "ls";

print "\n";

# end of lect07_ENV_play