#!/usr/bin/perl
use strict;
use warnings;
use File::Temp;

for (0..5) {
  my $tmp = new File::Temp(DIR => './', SUFFIX => '.scr');
  print $tmp "some script command\n";
 }
exit;