use strict;
use Data::Dumper;
use Scalar::Util;

1;

##</code><code>##

print Scalar::Util::reftype("foo");
print Dumper("this is some raw text");


##</code><code>##

~/src/perl$ perl -Mmystuff test.pl
$VAR1 = 'this is some raw text';