my $file = shift @ARGV;

if (open my $FH , $file) {
    my $start_pattern_found = 0;
    while (my $line = <$FH>) {