Select Code to Download

#!/usr/bin/perl
use strict;
...
          'line 20',
          'line 21'
        ];

line 1
line 2
...
line 19
line 20
line 21

#!/usr/bin/perl
use strict;
...
          'line 20',
          'line 21'
        ];

#!/usr/bin/perl
use strict;
...
          'line 20',
          'line 21'
        ];

do {
    @data = check_file($filename, $numlines);
    sleep 5;
} while ( grep not /$process/, @data );