#!/usr/bin/perl

warn "\n==normal case:\n";
print "running ls:\n";
system( "ls" );

close STDOUT;

warn "\n==STDOUT closed:\n";
print "running ls a 2nd time\n";
system( "ls" );

open STDOUT, '>-';

warn "\n==STDOUT reopened:\n";
print "running ls a 3rd time\n";
system( "ls" );