#!/usr/perl5/bin/perl

use strict;
use warnings;

my $file = 'test.file';
open my $fh, '>', $file or die $!;

while (<STDIN>) {
    last if /^$/;
    print $fh $_;
}
close $fh;

exit 200;