Help for this page
open( my $command_out, "-|", $command ); sleep 3; close $command_out;
open( my $command_out, "-|", $command ); close $command_out;