#!/usr/bin/perl

eval qq[ use strict; use warnings; ];

{ use strict; use warnings; }

sub doit { use strict; use warnings; }

doit();

print "$x\n";