jrockway/redirect-to-filehandle.pl

## redirect-to-filehandle.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature ':5.10';

open my $fh, '>', 'test.txt' or die $!;

my $reopen = sub() {
    open $_[0], $_[1]. '&='. fileno($_[2]) or die "failed to reopen: $!";
};

$reopen->(*STDOUT,  '>', $fh);

system 'date';
print "This also goes to the file.\n";
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use feature ':5.10';

	open my $fh, '>', 'test.txt' or die $!;

	my $reopen = sub() {
	open $_[0], $_[1]. '&='. fileno($_[2]) or die "failed to reopen: $!";
	};

	$reopen->(*STDOUT, '>', $fh);

	system 'date';
	print "This also goes to the file.\n";