#!/usr/bin/perl
# How to use standard Unix commands in Perl
print "Current Working directory is ", `pwd`, "\n";
$dir = `pwd`;
$pat2 = "/";
@new2 = split(/$pat2/,$dir);
@new3 = split(/\//,$dir);
#print @new2, "\n";
#print @new3, "\n";
print "Splitting path into different directory names ...\n";  
foreach $new2 (@new2) {
print $new2, "\n";
}
exit;