#!/usr/bin/perl
  use strict;
  use warnings;

  my $filename = 'input.txt';
  my $out = 'ouput.txt';

  my $minimum = 5;
  my $range = 19;


  my $random_number = int(rand($range)) + $minimum;

  
 
  open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";

	while(my $fh) {
         
  print  my $fsh('$_.="\n\n" x !(++$c % $random_number')); #compilation error
    };

close $fh;