### Give the number in bytes that should be created:
print ("Number in bytes:\n");

### Read in the choice.
$choice = <STDIN>;
chomp ($choice);

### Divide the choice.
$divide = $choice / $choice;

@x = $divide..$choice;

foreach $x (@x)
{
open(LOG, ">> file.txt");
print LOG "x";
close LOG;
}