Advertisement
Guest User

Untitled

a guest
Jun 5th, 2017
180
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Per 0.19 KB | None | 0 0
  1. use Symbol;
  2. use IPC::Open3 qw( open3 );
  3. my ( $in, $out );
  4. my $err = Symbol::gensym;
  5. my $binary = 'git';
  6. my $pid = open3( $in, $out, $err, $binary, '--version' );
  7. waitpid $pid, 0;
  8. print <$out>;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement