#!/usr/bin/perl

use strict;
use warnings;

close(STDOUT);
close(STDIN);
close(STDERR);

my $strout;
my $strin;
my $strerr;

open(STDOUT, "+<", \$strout) or die;
open(STDIN,  "+<", \$strin)  or die;
open(STDERR, "+<", \$strerr) or die;

print STDOUT "Hello this is 1 stdout\n";
print STDERR "Hello this is 1 stderr\n";
print STDIN  "Hello this is 1 stdin\n";

system("fin . -name asasdasdasd");

print STDOUT "Hello this is 2 stdout\n";
print STDERR "Hello this is 2 stderr\n";
print STDIN  "Hello this is 2 stdin\n";


close(STDOUT);
close(STDIN);
close(STDERR);

open(LOG, ">log") or die;
print LOG $strout, $strin, $strerr;
close(LOG);