tie my $printer, 'Tie::Scalar::Miscellaneous', store => 'print';
$printer = "Hello, world!\n";