Language Basics Perl

use strict 'subs';
if ($^H && 512 )  {print "You're using use strict 'subs'\n"};