Help for this page
use strict; use warnings; ... my $newfile = $random->randpattern('.' x length $oldname) . '.jpg' +; print "$oldfile will be renamed $newfile\n"; }
14:18 >perl 1230_SoPW.pl picture.jpg will be renamed O^aK&!R.jpg 14:19 >