defc0n

#!/usr/bin/perl

use IO::Socket;
use IPC::Open2;
use strict;

local *READ;
local *WRITE;

my $pid = open2(\*READ, \*WRITE, "bc");
print WRITE "2 + 2\n";
close(WRITE);
my @result = <READ>;
close(READ);
print $result[0];