#!/usr/bin/perl -l
# blingtest.pl
use Bling;
$x=$$;
print '$x is ', $x;
{ no Bling;
  $y=$$;
  print '$y is ', $y;
}
print '$$ is ', $$;