package my_strict;
use strict;
use vars;

sub import {
  shift; # I know my class name I hope
  my (@vars, @strictures);
  foreach (@_) {
    if (/\W/) {
      push @vars, $_;
    }
    else {
      push @strictures, $_;
    }
  }
  
  my $pkg = caller;
  $^H = eval "
    package $pkg;
    no strict;
    use strict qw(@strictures);
    vars->import(\@vars);
    \$^H;
  ";
}

1;