eval 'use strict';
if ($@) {  # If it cannot 'use strict' then it will put the error in $@
  print "Cannot 'use strict', it appears to be missing\n";
}