#!/usr/bin/perl
  
use strict;
use File::Basename;

my $path = '/ta/mie453/tutorial/tut7/index.htm';
my $base = basename($path);
my $dir  = dirname($path);

print "The directory is: $dir\n";
print "The base is: $base \n";