Something

#!E:/Perl/bin/perl.exe -w
use strict;
print "Please Enter Working Dir : ";
while(<>)
{
	chomp;
	my $dir = $_;
	if(!chdir($dir))
	{
	  print "Error :$!\n";
	} else
	{
	 chdir($dir);
	 print "Files? : ";
	 my @a = glob <STDIN>;
	 my $array_num=@a;
	 print "\nThe files you have chosen are : \n\n";
	 for(my $i=0;$i<$array_num;$i++)
	 {

		 my $shifter = shift(@a);
	 	 print "\n$shifter";
         }
        }
}