perl 随机生成文件

 同窗叫我帮他写一个批量重命名文件的脚本，我是用shell写的，我想把它用perl改写一下，前提要有一些文件，就先生成一些文件：

 #!/usr/bin/perl -w

while(1){

my $rand = int(99999+ rand(1000));

if ($rand < 100899){

        $file = ">$rand.jpeg";

        open(FILE,$file);

        close(FILE);

        }else{

        last;

        }

}