open(my $in1, '## if (!fork()) { system('ls -al /proc/self/fd/');}