#!c:perlbinperl
use List::Util ‘shuffle’;
# Following line is necessary of you are using perl to write html in browser.
print “Content-type: text/htmlnn”;
print “
“;print “
print ““;
print “
Newer Verion of File Management Operations !
“;@list=(“one”, “two”, “three”, “four”, “five”, “six”, “seven”, “eight”, “nine”, “ten”);
print “list = @list”;
@shuffled = shuffle(@list);
print “
“;
print “shuffled array = @shuffled”;
print ““;