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

open my $OUT, '>', '1' or die $!;
open my $IN,  '<', '1' or die $!;
print {$OUT} "$_\n" for 1 .. 20;
close $OUT or die $!;  # <- Comment me!
print while <$IN>;