Shell Programming and Scripting

#!/usr/bin/perl 
use File::Copy;

 $filetobecopied = "myhtml.html.";
while(n<500)
{
$random_generated_name = Generate a random string here

 $newfile = $random_generated_name".html."; 
copy($filetobecopied, $newfile) or die "File cannot be copied.";
random_generated_name = " ";
}

 
use strict;
print "Enter File Name: ";
my $fileName = <STDIN>;
chomp($fileName);
print "Enter Number: ";
my $no = <STDIN>;
chomp($no);
if(-e $fileName)
{
        $fileName=~/(\.\w+)$/;
        my $extn = $1;
        for(my $i=0;$i<$no;$i++)
        {
                my $randFile = &genRandString();
                $randFile .= $extn;
                my $cmd = qq@cp $fileName $randFile@;
                system($cmd);
        }
}
else
{
        print "$fileName not exits\n";
}

sub genRandString
{
        my @cha=('a'..'z','A'..'Z');
        my $string;
        $string.= $cha[rand @cha] foreach(1..10);
        return $string;
}