#! /usr/bin/perl
use strict;
use warnings;
my $num=0;
my $newname;
my $randnum=0;
my @args=("/usr/bin/perl");
open THISF,$0 or die $!;
while($num<3){
	$randnum=int(rand(1000));
	$randnum+=$num;
	$newname=$randnum.".pl";
	open NFILE,">$newname" or die $!,"\n";
	while(<THISF>){
		print NFILE $_;
		}
	close NFILE;
	$args[1]=$newname;
	system(@args);
	$num++;
	}
close THISF;