#!/usr/bin/perl -w

#######################################################
# lect09_module1
#
# simple module practice, using module File::Basename
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 10-21-04
#######################################################

# declare modules you will be using near the beginning of
#    your Perl script

use File::Basename;   # a module File has a function Basename

my $name = "/usr/bin/perl";
my $basename = basename $name;
my $dir = dirname $name;
my @pieces = fileparse $name;

print "\nThe basename of $name is $basename.\n\n";
print "\nThe directory of $name is $dir.\n\n";
print "\nThe results of fileparse on $name are: \n";
foreach (@pieces)
{
    if (defined($_))
    {
        print "<$_>\n";
    }
    else
    {
        print "undefined element in \@pieces?!\n";
    }
}

chomp(my $curr_absolute_filename = `pwd`);
my $curr_basename = basename $curr_absolute_filename;

print "\n";
print "The basename of current directory $curr_absolute_filename\n";
print "   is $curr_basename\n\n";

# end of lect09_module1