#!/usr/bin/perl
use warnings;
use strict;

my $x='<some choice on the poll>';
print $x+42, "\n" if ($x);