#!/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`; }