use 5.010;
    use autodie;

    # With basic open()
    open my $sort, '|-', 'sort -n';
    printf $sort "%d\n", rand 100 for 1..10;
    close $sort;
    
    # With IPC::Run
    use IPC::Run qw/start finish pump/;
    print "IPC::Run output:\n";
    my $r = start [ 'perl' ], \my $in, \my $out, \my $err
        or die "Can't start: $!";
    $in .= 'print "Hello, world!\n";';
    finish $r;
    say $out;
    die 'ERROR: $err' if length $err;