tokubass/cmd_timeout.pl

## cmd_timeout.pl
#!/usr/bin/env perl
use strict;
use warnings;
use IPC::Run qw/ timeout /;

IPC::Run::run(
  ['cat', 'sample.txt'],
  \my $in,
  \my $out,
  \my $err,
  timeout(2)
);

print $out;
	#!/usr/bin/env perl
	use strict;
	use warnings;
	use IPC::Run qw/ timeout /;

	IPC::Run::run(
	['cat', 'sample.txt'],
	\my $in,
	\my $out,
	\my $err,
	timeout(2)
	);

	print $out;