#! /usr/bin/perl -w
use strict;

@ARGV or die "correct use is $0 filename";

foreach my $file ( @ARGV ) {
   my @parts = split '\/', $file;
   my $filename = $parts[-1];
   print "file $file has directory tree:\n";
   foreach my $dir (@parts) {
      print "   $dir\n"
   }
}

# sample output