#!/usr/bin/perl --
use strict; use warnings;
use Path::Class;

@ARGV or @ARGV = (
qw'
  y:/home/lib/directory/book
  y:/home/lib/directory/book_manager
  y:/home/lib/directory/piano_book 
' );

print file($_)->basename,"\n" for @ARGV;
__END__
__END__
book
book_manager
piano_book