Skip to content

Instantly share code, notes, and snippets.

@tokubass
Created April 23, 2013 09:19
Show Gist options
  • Save tokubass/5442083 to your computer and use it in GitHub Desktop.
Save tokubass/5442083 to your computer and use it in GitHub Desktop.
test
#!/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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment