fgabolde/object-oriented-filehandles.pl

## object-oriented-filehandles.pl
#!perl

use strict;
use warnings;

use IO::File;

my $target = shift or die 'no arg? go away';

open my $fh, '>', $target
    or die "can't open $target: $!";

$fh->print("oh hey\n");
$fh->close;
	#!perl

	use strict;
	use warnings;

	use IO::File;

	my $target = shift or die 'no arg? go away';

	open my $fh, '>', $target
	or die "can't open $target: $!";

	$fh->print("oh hey\n");
	$fh->close;