Its a FAQ. See: How can I capture STDERR from an external command?.

#!/usr/bin/perl

use strict;
use warnings;

my $output = `whoami 2>&1`;
name();

sub name {
     print "You are $output";
}
[download]