package strictandwarnings;

require Exporter;
our @ISA = qw(Exporter);

sub import {
   my ($pkg) = (caller)[0];
   my $current = __PACKAGE__;
   eval qq[
       package $pkg;
       use strict;
       use warnings;
       use CGI qw/:standard/;
       package $current;
   ];
   # optionally, if you still need import:
   goto \&Exporter::import;
}

1;