#!/usr/bin/perl -wT

use strict;

open(FH, "/testfile");
my @lines = <FH>;
&test;
close(FH);

sub test{
for my $i(@lines) {
  if ($i =~ /^\#\# START/) {
    return;
  } else {
    print $i;
  }
}

}