#!/usr/bin/perl -w

use strict;
use warnings;

open(INPUT_FILE_HANDLE, '< c:/boot.ini') or die('Cant open file for reading');
open(OUTPUT_FILE_HANDLE, '> c:/outfile.txt') or die('Cant open file for writing');

print <INPUT_FILE_HANDLE>;
print OUTPUT_FILE_HANDLE "Hello world!!!\n";

close OUTPUT_FILE_HANDLE;
close INPUT_FILE_HANDLE;