#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

open OUT, '>out.txt' or die "Couldn't open the file: $!" ;
print OUT "Hello, World!\n" ;
close OUT ;

exit ;

__END__