#!/usr/bin/perl
while(<STDIN>){
last if length($_) == 0;
}
print "GET VARIABLE myvar\n";
$result = <STDIN>;
chomp($result);
if($result =~ m/(?<=result=[0-1]\s\()[^)]*/){
print $1 . "\n";
}