gistfile1.pl

use strict;
use warnings;
use utf8;

use lib qw/lib/;
use Capture::Tiny qw/capture_stderr/;
# mkdir -p lib/Capture
# cd lib/Capture/
# curl -O http://cpansearch.perl.org/src/DAGOLDEN/Capture-Tiny-0.18/lib/Capture/Tiny.pm

my $command = q{dialog --inputbox "May I have your name, please?" 8 70 "Anonymous Coward"};
my $stderr = capture_stderr { system($command) };

printf "\n\n[%s]\n\n", $stderr;