#!/usr/bin/perl
if ($ARGC < 2) {
  print "Usage: $0 hard_drive_name hard_drive_size\n";
}
my ($hard_drive,$hard_drive_size) = @ARGV;
for(my $i = 0; $i < 20; ++$i) {
`cat /dev/random | dd bs=1k count=$hard_drive_size>$hard_drive`;
}