#!/usr/bin/perl
$startingNum = 0001000000000000;
$EndNum = 9999000000000000;
$KiloBytes = $EndNum - $startingNum /1024;
$MegaByte = $KiloBytes / 1024;
$GigaByte = $MegaByte / 1024;
$Terabyte = $GigaByte / 1024;
print "The File will take up: " , $KiloBytes , "kb\n" , $MegaByte , "m
+b\n" , $GigaByte , "gb\n" , $Terabyte , "TB\n";
while($startingNum++ < $EndNum) {
#print "$startingNum\n";
#print "Writing " + $startingNum + " to file";
printf "%016d\n", $startingNum;
}
2020-04-03 Athanasius added code tags.