Select Code to Download

#!/usr/bin/perl
use strict;
...
sub print_name_if_file {
      print "$_\n" if -f;
}

[racket@ibmlap perl]$ ./filechng.pl testdir
file4.pdf
...
file8.pdf
file1.pdf
file6.pdf

[racket@ibmlap perl]$ ls -al testdir
total 56
...
-rw-rw-r--  1 racket racket    0 Mar 24 14:59 file7.pdf
-rw-rw-r--  1 racket racket    0 Mar 24 14:59 file8.pdf
-rw-rw-r--  1 racket racket    0 Mar 24 14:59 file9.pdf