#!/usr/bin/perl
use strict;
use warnings;

my $random = '/dev/prandom';
my $zero = '/dev/zero';
my %files;
$files{$_} = int(-s $_) foreach (@ARGV);
open(RAND, "<", $random);
open(ZERO, "<", $zero);

foreach my $file (keys %files) {
  print "$file: $files{$file}\n";
  foreach my $num (1..5) {
    open(FILE, ">", $file);

    foreach (0..($files{$file} / 1024 + 1)) {
      read(RAND, my $rand, 1024);
      print FILE $rand;
    }
    close(FILE);
    open(FILE, ">", $file);

    foreach (0..($files{$file} / 1024 + 1)) {
      read(ZERO, my $z, 1024);
      print FILE $z;
    }
    close(FILE);
  }
  unlink($file);
}

close(RAND);
close(ZERO);