#!/usr/bin/perl -w

#######################################################
# class-bonus_01_mod1
#
# simple module practice, using module File::Basename
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 5-13-03
#######################################################

# declare modules you will be using near the beginning of
#    your Perl script
use File::Basename;

my $name = "/usr/bin/perl";
my $basename = basename $name;

print "\nThe basename of $name is $basename.\n\n";

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

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

# end of class-bonus_01_mod1