1use Test::Base; 2 3__DATA__ 4=== Strict Test 5 6--- perl strict 7my $x = 5; 8--- strict 9use strict; 10use warnings; 11my $x = 5; 12