#! /usr/bin/perl

use strict;
use warnings;

my $output = "output.txt";
open (WRITE, ">$output") || die $!;

while (<>){
	chomp $_;
	print WRITE "$_\n";
}
print "done\n";