my $content;
open RAM, '>', \$content;
my $stdoutsaved = select;
select *RAM;
my $status = getprint( $url );
select $stdoutsaved;
close RAM;

## Now the status is in $status and the content in $content.

##</code><code>##

my( $status, $content ) = get( $url );