my $strict_enabled = do {
  my $code = sprintf( '$____DUMMY____%d = 1', 1_000_000 + int( rand 8_999_888 ) );
  not eval( $code );
};

if ( $strict_enabled ) {
  print "strict vars\n";
}
else {
  print "no strict vars\n";
}