#!/usr/bin/perl
my $FD,$name;

for (1..100){
  system("dd" , "if=/dev/urandom" , "of=./tmp.dat" , "bs=1k" ,
"count=128") == 0
    or die "dd failed";
  print "creating file " . $_  . ".\n";
  open (FD, "tmp.dat")
    or die "open tmp.dat failed" ;
  read FD, $name , 8
    or die "read tmp.dat failed";
  rename "tmp.dat","pad" . unpack ("h16" , $name ) . ".dat"
    or die "rename failed";
  close FD;
}
