'use strict' and subroutine
#!/usr/bin/perl -w use strict; setup; sub setup { print "This is some program, version 0.1\n"; }