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

open(INPUT, "<test_in.png") or die $!;
open(OUTPUT, ">test_out.png") or die $!;

while(<INPUT>)
   {
   last if /END/;		
   print OUTPUT $_;
   };

close INPUT;
close OUTPUT;