Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use Symbol;
- use IPC::Open3 qw( open3 );
- my ( $in, $out );
- my $err = Symbol::gensym;
- my $binary = 'git';
- my $pid = open3( $in, $out, $err, $binary, '--version' );
- waitpid $pid, 0;
- print <$out>;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement