perl -we 'use warnings;no warnings q{uninitialized}; do qq{$file}'