use strict; use diagnostics;
my $var = '
use SANDY 1.5;
use SANDY qw(ok);
';
eval($var);
print $var;
ok();