#!/usr/bin/perl -w
use strict;
use IO::Scalar;

my $string;
tie *OUT, 'IO::Scalar', \$string;

select OUT;
print "line 1\nline 2\n", "line 3\n";

select STDOUT;
print "The string contains:\n$string\n";

### OR this way:

$string = '';
my $SH = IO::Scalar->new_tie(\$string);
$SH->print("line 1\n");  # use the OO method

print $SH "line 2\n";    # use it like a filehandle

select $SH;              # select it as default output handle
print "line 3\n";

select STDOUT;
print "The string contains:\n$string"
__END__