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

my $file = "/path/to/some/file";

open ( FILE, '>', $file )
    or die "Can't open $file for writing.\n";

while ()
    {
    <>;
    last unless /\S/;
    print FILE;
    }

close FILE
    or die "Can't close $file.\n";