#!/usr/local/bin/perl -w

use strict;

open (FH, ">myworld") || die $!;
binmode FH;
print FH "Hello, world\n";
close FH;